|
Galya
Функция StrComp( S1, S2 : PChar ): Integer;
--------------------------------------------------------------------------------
Модуль: SysUtils
Описание
Функция сравнивает две длинные строки S1 и S2 с учетом регистра.
Функция возвращает следующие значения: Условие
Возвращаемое значение
S1 > S2 > 0
S1 < S2 < 0
S1 = S2 = 0
Пример
var
S1,S2: PChar;
I: Integer;
Res: string;
begin
S1:= 'Company';
S2:= 'COMPANY';
I:= StrComp(S1, S2);
ifI>0 then Res:= '>' else
if I<0 then Res:= '<' else Res:= '=';
MessageDlg(S1+ Res+ S2, mtInformation, [mbOk], 0);
end;
Если строки содержат национальные символы, то для их сравнения используй функцию AnsiStrComp.
|