Функция AnsiIndexStr – сравнивает строку со списком строк, возвращает соответствующий индекс

Функция AnsiIndexStr в Delphi сравнивает строку со списком строк и возвращает соответствующий индекс.

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

var
  source : AnsiString;
  position : Integer;
begin
  source := 'Henry';   // Строка для соответствия

  // Обратите внимание, что AnsiIndexStr чувствительна к регистру
  // Мы используем жестко установленный постоянный строковый массив
  position := AnsiIndexStr(source, ['BRIAN', 'JIM', 'HENRY']);
  ShowMessageFmt('Индекс первого соответствия = %d',[position]);

  // Обратите внимание, что массивы начинаются с 0
  position := AnsiIndexStr(source, ['Brian', 'Jim', 'Henry']);
  ShowMessageFmt('Индекс второго соответствия = %d',[position]);
end;