Von TList abgeleitete Klasse um Methode Sort erweitern

[himitsu]

Zitat:

TListSortCompare = function (Item1, Item2: Pointer): Integer;

TListSortCompare ist nunmal nur als Funktion deklariert ... also kann man da nicht einfach eine Methode übergeben.

Versuch mal eines davon

Delphi-Quellcode:

procedure TXyzList.Sort;
begin
  Sort(function(Item1, Item2: Pointer): Integer
       begin
         Result := myCompare(Item1, Item2);
       end);
end;

procedure TXyzList.Sort;
begin
  SortList(myCompare);
end;