Функция StrLComp(
S1, S2 : PChar;
MaxLen: Cardinal ): Integer;
Модуль: SysUtils
Описание
Функция сравнивает MaxLen первых символов длинных строк S1 и S2 с учетом регистра. Настройки текущего установленного языкового драйвера Windows во внимание не принимаются. Для сравнения строк, содержащих национальные символы используйте функцию AnsiStrLComp.
Функция возвращает следующие значения:
Условие
Возвращаемое значение
S1 > S2
> 0
S1 < S2
< 0
S1 = S2
= 0 (первые MaxLen байт строк равны)
Пример const
S1: PChar = 'Программа';
S2: PChar = 'Прогресс'; var
I: Integer;
S: string; begin
I:= 5; if StrLComp( S1, S2, I) = 0 then S:= 'равны' else S:= 'различны';
MessageDlg( 'Первые '+ IntToStr(I)+ ' символов строк '+ S, mtInformation,[mbOk], 0); end;