Модуль: 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
   P1:= 'Строка отличается от другой последним символом.';
   P2:= 'Строка отличается от другой последним символом!';
   Len:= length(p1)-1;
   If AnsiStrLIComp(P1, P2, Len)=0 then MessageDlg( P1+ #13+ P2+ #13+ 'Строки, в пределах первых '+ IntTostr(Len)+' символов, равны', mtInformation, [mbOk], 0);
end;