"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "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.

Результат работы скрипта

[17:00:13] (Log "SortMethod"): [Unsorted]

фиолетовый аист

красный бык

синий суслик

оранжевый страус

красный суслик

синий аист

красный суслик

синий медведь

оранжевый аист

жёлтый аист

[17:00:13] (Log "SortMethod"): [Sorted]

жёлтый аист

красный бык

красный суслик

красный суслик

оранжевый аист

оранжевый страус

синий аист

синий медведь

синий суслик

фиолетовый аист

[17:00:13] (Run "SortMethod"): Время выполнения скрипта: 6 мс

[17:00:13] (Run "SortMethod"): Скрипт выполнен успешно.
 

Ещё посмотреть

CRLF

mLogScript

TStringList.Append

TStringList.Create

TStringList.Free

TStringList.Text

Random