Generics.Collections.TList <T>.需要移动源

Question

不幸的是,TList in 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;