Функция AnsiStrLComp(
S1, S2: PChar;
MaxLen: Cardinal ): Integer;
Модуль: 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;
