MyChat Scripts: функция TStringList.Move, переместить строку на указанную позицию

MyChat Scripts: функция TStringList.Move, переместить строку на указанную позицию

"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "TStringList", "Методы", "Move".

 

Метод для перемещения текстовой строки на новую позицию. Индексация списка — с нуля.

 

Синтаксис

procedure TStringList.Move(iIdxFrom, iIdxTo: integer);

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

iIdxFrom

integer

индекс строки, которую нужно переместить;

iIdxTo

integer

позиция для вставки строки.

 

Пример

var
  SL: TStringList;
  i: integer;
begin
  SL := TStringList.Create;
  SL.Sorted := false;
  
  SL.CommaText := 'I,II,III,IV,V';
  mLogScript(SL.CommaText, 'Original');
  
    for i := 1 to 5 do begin
      SL.Move(0, SL.Count - 1);
      mLogScript(SL.CommaText, IntToStr(i) + ' step');
    end;

  SL.Free;  
end.

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

[17:10:37] (Log "MoveMethod"): [Original] I,II,III,IV,V

[17:10:37] (Log "MoveMethod"): [1 step] II,III,IV,V,I

[17:10:37] (Log "MoveMethod"): [2 step] III,IV,V,I,II

[17:10:37] (Log "MoveMethod"): [3 step] IV,V,I,II,III

[17:10:37] (Log "MoveMethod"): [4 step] V,I,II,III,IV

[17:10:37] (Log "MoveMethod"): [5 step] I,II,III,IV,V

[17:10:37] (Run "MoveMethod"): Время выполнения скрипта: 5 мс

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

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

IntToStr

mLogScript

TStringList.Append

TStringList.Create

TStringList.CommaText

TStringList.Free

TStringList.Sorted