Модуль: SysUtils

Описание
Функция сравнивает первые MaxLen байт двух длинных строк S1 и S2 без учета регистра, но учитывая особенности языка текущей локализованной версии Windows (См. примечание к функции AnsiCompareText). В случае, если длина S1 или S2 не превышает значение MaxLen, то функция сравнивает строки полностью. При S1>S2, то результат функции >0, если S1<S2, то результат <0, а когда первые MaxLen байт строк равны, функция возвращает 0. Данная функция поддерживает многобайтовые наборы символов (MBCS).

Пример
var
   P1,P2: PChar;
   Len : Integer;
begin
   Len:= 7;
   P1:= 'Строка 1';
   P2:= 'СТРОКА 2';
   If AnsiStrLIComp(P1, P2, Len)=0 then MessageDlg( P1+ #13+ P2+ #13+ 'Строки, в пределах первых '+ IntTostr(Len)+' символов, равны', mtInformation, [mbOk], 0);
end;