Функция CompareText ( const S1, S2: string ): Integer;
Модуль: SysUtils
Описание
Функция сравнивает две строки без учета регистра и установок языкового драйвера Windows (См. примечание к функции AnsiCompareText).
Если S1>S2, то результат функции >0, если S1<S2, то результат <0, а при S1=S2, результат =0.
Пример var
S1,S2: string;
I: Integer;
begin
S1:= 'AБВГД';
S2:= 'абвгд';
I:= CompareStr(S1, S2); { I = 0, т.е. S1 = S2 } if I=0 then
MessageDlg(S1, '=', S2, mtWarning, [mbOK], 0); end;