II. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ СО СТРОКАМИ
2. Функции и процедуры для работы с длинными строками
Функция 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);
if I>0 then Res:= '>' else
if I<0 then Res:= '<' else Res:= '=';
MessageDlg(S1+ Res+ S2, mtInformation, [mbOk], 0);
end;
[Вернуться к содержанию]
|