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.