Delphi Функция Ansipos

Функция AnsiPos в Delphi возвращает индекс первого вхождения заданной строки в другой строке. Если подстрока не найдена, функция возвращает ноль. Параметры функции:

s: строка, в которой ищется подстрока
subStr: подстрока, которую нужно найти в s

Например, для поиска строки "world" в строке "Hello, world!", можно использовать следующий код:

var  str: string;begin  str := 'Hello, world!';  if AnsiPos('world', str) > 0 then    ShowMessage('Substring found!');end;

В этом примере функция AnsiPos будет возвращать значение 8, так как подстрока "world" находится в субстроке начиная с восьмой позиции. Если подстрока не будет найдена, функция возвратит ноль.