Функция AnsiContainsStr – возвращается истина, если строка содержит подстроку

Функция AnsiContainsStr в Delphi возвращает истину, если строка содержит подстроку.

Функция AnsiContainsStr: Пример кода

var
  haystack : AnsiString;
begin
  haystack := 'The cat sat on the mat';

  // Обратите внимание, что AnsiContainsStr чувствителен к регистру
  if AnsiContainsStr(haystack, 'THE')
  then ShowMessage('''THE'' найден')
  else ShowMessage('''THE'' не найден');

  if AnsiContainsStr(haystack, 'the')
  then ShowMessage('''the'' найден')
  else ShowMessage('''the'' не найден');
end;