Thema: Delphi TObjectList

Einzelnen Beitrag anzeigen

karma

Registriert seit: 14. Mai 2008
27 Beiträge
 
#8

Re: TObjectList

  Alt 14. Sep 2009, 15:20
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?
  Mit Zitat antworten Zitat