Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
AnsiMatchStr
Функция
Возвращается истина, если строка точно соответствует какой-либо строке из списка StrUtils unit
  function AnsiMatchStr ( const Source : string; const StringList : array of string ) : Boolean;
Описание
Функция AnsiMatchStr выясняет, соответствует ли в точности любая из строк в StringList строке Source.

Если будет найдено любое соответствие, то функция возвращает true, иначе false.

Строковый список может быть определен как список в квадратных скобках, как в примере, или как массив строк.

Эта команда чувствительна к регистру.
Похожие команды
AnsiIndexStr  Сравнивает строку со списком строк, возвращает соответствующий индекс

AnsiPos  Находит позицию одной строки в другой

StrScan  Ищет заданные символы в строке

 
Пример кода : Простой пример
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;
Первое соответствие не было успешно найдено
Второе соответствие успешно найдено
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия