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;
Индекс первого соответствия = -1
Индекс второго соответствия = 2
