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