MyChat Scripts: функция TStringList.Sort, отсортировать список по алфавиту

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