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