"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "TStringList", "Методы", "Exchange".
Поменять местами две строки в списке. От 0 до TStringList.Count - 1
procedure TStringList.Exchange(x, y: integer);
Параметр |
Тип |
Значение |
---|---|---|
x |
integer |
номер первой строки; |
y |
integer |
номер первой строки/ |
var
SL: TStringList;
i: integer;
begin
SL := TStringList.Create;
for i := 1 to 10 do SL.Append(IntToStr(i));
mLogScript(SL.CommaText, 'Before');
for i := 0 to 4 do SL.Exchange(i, 9 - i);
mLogScript(SL.CommaText, 'After');
SL.Free;
end.
[17:54:08] (Log "ExchangeMethod"): [Before] 1,2,3,4,5,6,7,8,9,10
[17:54:08] (Log "ExchangeMethod"): [After] 10,9,8,7,6,5,4,3,2,1
[17:54:08] (Run "ExchangeMethod"): Время выполнения скрипта: 5 мс
[17:54:08] (Run "ExchangeMethod"): Скрипт выполнен успешно.