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