Функция AnsiPos – находит позицию одной строки в другой

Функция AnsiPos в Delphi находит позицию одной строки в другой.

Функция AnsiPos: Нахождение слова в предложении

var
  position : Integer;

begin
  // Поиск слова 'Cat' в предложении
  // Обратите внимание: что этот поиск чувствителен к регистру, поэтому первое 'cat' не рассматривается
  position := AnsiPos('Cat', 'The cat sat on the Cat mat');
  if position = 0
  then ShowMessage('''Cat'' не найдено в предложении')
  else ShowMessage('''Cat'' было найдено начиная с символа '+IntToStr(position));
end;