MyChat Scripts: функция TStringList.Exchange, поменять местами две строки в списке

MyChat Scripts: функция TStringList.Exchange, поменять местами две строки в списке

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

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

IntToStr

mLogScript

TStringList.Append

TStringList.Create

TStringList.Free

TStringList.CommaText