Delphi-Quellcode:
function sortpoints(Item1, Item2: Pointer): Integer;
begin
if (((Item1^ as Tpoint).t) < ((Item2^ as TPoint).t)) then
Result := -1
else
if (((Item1^ as Tpoint).t) = ((Item2^ as TPoint).t)) then
Result := 0
else
Result := 1;
end;
Pointer evtl dereferenzieren?
Ja, klar, ist ja auch kein PRecord...
(Auf 'TPoint als Klasse zu verwenden' muss man erstmal kommen) 