Для разработчиков > Серверные скрипты > Описание функций > Строки > TStringList > Методы

"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "TStringList", "Методы", "Sort".

Отсортировать список по алфавиту.

Синтаксис

procedure TStringList.Sort;

Пример

function GetRandomText: string;
var
  x, y: integer;
  s1, s2: string;
begin
  x := random(7);
  y := random(7);
  
    case x of
      0: s1 := 'красный';
      1: s1 := 'оранжевый';
      2: s1 := 'жёлтый';
      3: s1 := 'зелёный';
      4: s1 := 'голубой';
      5: s1 := 'синий';
      6: s1 := 'фиолетовый';
    end;

    case y of
      0: s2 := 'бык';
      1: s2 := 'петух';
      2: s2 := 'суслик';
      3: s2 := 'кот';
      4: s2 := 'аист';
      5: s2 := 'медведь';
      6: s2 := 'страус';
    end;

  result := s1 + ' ' + s2;
end;

var
  SL: TStringList;
  i: integer;
begin
  SL := TStringList.Create;
  
    for i := 1 to 10 do SL.Append(GetRandomText);
  
  mLogScript(CRLF + SL.Text, 'Unsorted');
  
  SL.Sort;
  
  mLogScript(CRLF + SL.Text, 'Sorted');
  
  SL.Free;
end.