Generics.Collections.TList<T>.Move source needed

Question

Unfortunately, TList in Generics.Collections of Delphi 2009 lacks Move method. I'm in a desperate need of it. Could someone please post it here for me from later versions?

I intend to use it in a descendant class.

Answer 1

You can implement it like so:

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