Generics.Collections.TList <t>。需要移动源代码

Question

不幸的是，TList在Generics.Collections of Delphi 2009中缺少Move方法。我迫切需要它。有人可以在以后的版本中为我发帖吗？

我打算在后代课程中使用它。

Answer 1

你可以像这样实现它：

procedure TMyList<T>.Move(CurIndex, NewIndex: Integer);
var
  Item: T;
begin
  Item := Self[CurIndex];
  Delete(CurIndex);
  Insert(NewIndex, Item);
end;