TObjectList

[karma]

Ich grab den Thread mal wieder aus...
Ich möchte mit der hier beschriebenen Methode eine ObjectList sortieren, die mit Objekten der Klasse TPoint gefüllt ist.

Delphi-Quellcode:

//TPoint sieht so aus: 
type
  Tpoint = class(TObject)
    x,y,z:double;
    t:double;
  end;

//meine sortierfunktion folgendermaßen

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;

Leider funktioniert das "as" an der Stelle nicht, Delphi gibt aus "E2015 Operator ist auf diesen Operandentyp nicht anwendbar". Was mache ich falsch?