Функция AnsiCompareStr ( const S1, S2: string ): Integer;
Модуль: SysUtils
Описание
Функция сравнивает строки S1 и S2 с учетом регистра и региональных языковых особенностей текущей версии Windows (См. примечание к функции AnsiCompareText). Если S1>S2, то результат функции >0, если S1<S2, то результат <0, а при S1=S2, результат =0.
Пример
В данном примере производится сортировка массива строк. var
S: string;
mas: array[0..99] of string;
i, j: integer; begin
... for i:=1 to 98 do for j:=i+1 to 99 do if AnsiCompareStr( mas[i], mas[j] ) >0 then begin
S:= mas[i]; mas[i]:= mas[j]; mas[j]:= S; end; end;