TList.Sort akzeptiert Vergleichsfunktion nicht

[omata]

Moin,

tja da musst du ein bißchen tricksen...


Leider ist in der Unit Classes der Typ der Vergleichsfunktion nicht von object abgeleitet, deshalb kann nur eine Funktion, die zu keiner Klasse gehört übergeben werden.

Deklariere dir folgenden Typ in deiner Unit, eine private/globale Variable von diesem Typ und weise die Vergleichsfunktion dieser Variablen zu:

Delphi-Quellcode:

type
  TMyListSortCompare = function (Item1, Item2: Pointer): Integer of object;
  :
  TFileGrid = class(TDrawGrid)
  private
    FCompareListItems:TMyListSortCompare;
  : 
  public
  :
  end;  
  :
constructor TFileGrid.Create(AOwner: Tcomponent);
begin
  inherited;
  FCompareListItems:=CompareListItems;
  :
end;

dann leg eine Vergleichfunktion in deiner Klasse an...

Delphi-Quellcode:

function TFileGrid.CompareListItems(Item1, Item2: Pointer): Integer;
begin
  :
end;

und nun kommt der Trick...

  FFileList.Sort(TListSortCompare(@FCompareListItems)); Beim Aufruf mach einfach einen Typ-Cast auf die richtige Funktionsart.


MfG
Thorsten