Модуль: 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;