Like(Str, Mask : String; NoCase:Boolean) : Integer
Поиск в строке по маске

Функция Like сравнивает строку Str с маской Mask. Маска может содержать символ *, который обозначает любое кол-во символов.

Если аргумент NoCase=True, то регистр не учитывается.

Procedure OnCreate;
Begin
  // Выполнится
  If Like('Hello world', '*wor*', True ) Then Warning('*wor*');
  If Like('Hello world', 'h*d',   True ) Then Warning('h*d');
  If Like('Hello world', 'Hello*',False) Then Warning('Hello*');
  If Like('Hello world', 'h*w*d', True ) Then Warning('h*w*d');
  
  // Не выполнится, так как регистр не совпадает
  If Like('Hello world', 'h*d',   False) Then Warning('h*d');
End;

© RTIT