TObjectList

[Apollonius]

Casten: TPoint(Item1)

[karma]

Zitat von Klaus01:

Gibt es vielleicht Überschneidungen der Klasse TPoint (die ist von dir)
und dem record TPoint (der wird von Delphi bereitgestellt)?

Vielleicht benamst Du Deine Klasse um?

Klingt plausibel, aber Umbennen half nichts.

Zitat von mleyen:

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?

Nützt leider auch nichts.

Zitat von Apollonius:

Casten: TPoint(Item1)

Mit dem Cast funktionierts, allerdings sagt Delphi vorsicht unsicher. Wieso geht denn "as" nicht?

Delphi-Quellcode:

//falls es wen interessiert: mit der funktion aus math geht der vergleich schöner:
  result:=CompareValue(TPoint(Item1).t, TPoint(Item2).t);

Vielen Dank euch für die Antworten

[DeddyH]

Zitat von karma:

Wieso geht denn "as" nicht?

Weil ein Pointer kein TObject ist?