Delphi Strpos Пример

Функция strpos в Delphi используется для поиска первого вхождения подстроки в строке. Первый аргумент функции - это строка, в которой будет производиться поиск, а второй аргумент - подстрока, которую нужно найти. Функция возвращает позицию первого вхождения, если подстрока найдена, или 0, если подстрока не найдена.

Рассмотрим пример использования функции strpos:

var  s: string;  substr: string;  pos: integer;begin  s := 'Hello, world!';  substr := 'world';  pos := strpos(s, substr);  if pos > 0 then    ShowMessage('Substring found at position ' + IntToStr(pos))  else    ShowMessage('Substring not found');end;

В данном примере функция strpos используется для поиска подстроки 'world' в строке 'Hello, world!'. Если подстрока найдена, то на экран выводится сообщение о том, на какой позиции она находится.