bind arguments

[p80286]

vielleicht hilft Dir dieses Beispiel weiter:

Delphi-Quellcode:

type
  t_Sortliste=class(tlist)
......

function BaseSort(s1,s2:pointer):integer;
var
  i : integer;
begin
   result:=0;
   for i:=t_Sortrecord(s1^).slines.Count-1 downto 0 do
     if t_Sortrecord(s1^).slines[i]>t_Sortrecord(s2^).slines[i] then result:=1
   else if t_Sortrecord(s1^).slines[i]<t_Sortrecord(s2^).slines[i] then result:=-1;
end;{-- BaseSort ---------------------------}
 
.....
procedure t_Sortliste.DatenSort;
begin
  sort(BaseSort);
end;

Näheres findest Du in der Hilfe zu TList.sort
Gruß
K-H