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.
Результат работы скрипта
[17:00:13] (Log "SortMethod"): [Unsorted]
фиолетовый аист
красный бык
синий суслик
оранжевый страус
красный суслик
синий аист
красный суслик
синий медведь
оранжевый аист
жёлтый аист
[17:00:13] (Log "SortMethod"): [Sorted]
жёлтый аист
красный бык
красный суслик
красный суслик
оранжевый аист
оранжевый страус
синий аист
синий медведь
синий суслик
фиолетовый аист
[17:00:13] (Run "SortMethod"): Время выполнения скрипта: 6 мс
[17:00:13] (Run "SortMethod"): Скрипт выполнен успешно.