PosEx(What, X : String[; Start : Integer]) : Integer
Поиск строки в строке

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

Пример:

Procedure OnCreate;
Var
  X : Integer;
Begin
  Repeat
    X := PosEx('Привет', 'Эй! Привет мир! Привет.', X+1);
    Warning(ToStr(X)); // 5, 17, 0
  Until X=0;
End;

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

© RTIT