Pos(What, X : String) : Integer
Поиск строки в строке

Функция Pos ищет строку What в строке X. Если строка найдена, то функция возвращает позицию (нумерация начинается с 1), иначе возвращает 0.

Procedure OnCreate;
Var
  X : Integer;
Begin
  X := Pos('Привет', 'Эй! Привет мир! Привет.');
  Warning(ToStr(X)); // 5

  X := Pos('Пока', 'Эй! Привет мир! Привет.');
  Warning(ToStr(X)); // 0
End;

Смотри функцию PosEx.

© RTIT