var
source : AnsiString;
begin source := 'Henry'; //
Строка для соответствия // Обратите внимание, что
AnsiMatchStr чувствительна к регистру //
Мы используем предустановленный массив строк констант
if AnsiMatchStr(source, ['BRIAN', 'JIM', 'HENRY'])
then ShowMessage('Первое соответствие успешно найдено')
else ShowMessage('Первое соответствие не было успешно найдено'); // Обратите внимание, что массивы
начинаются с 0
if AnsiMatchStr(source, ['Brian', 'Jim', 'Henry'])
then ShowMessage('Второе соответствие успешно найдено')
else ShowMessage('Второе соответствие не было успешно найдено');
end;
Первое соответствие не было успешно найдено
Второе соответствие успешно найдено
