TObject und extended

[xZise]

Moin,
willst du denn den Inhalt des Extended Wertes behalten, oder reicht dir ein Integer davon?

Für ersteres müsstest du entweder mit Klassen oder Pointern arbeiten und bei zweiterem nimm mkinzlers Weg. Beziehungsweise er schneidet die Nachkommastellen ab. Alternativ kannst du auch ab-, auf- oder kaufmännisch runden (floor, ceil, round).

Zu den Zeigern (ich hoffe das passt so, habe aber lange nicht mehr damit gearbeitet):

Delphi-Quellcode:

var
  e : Extended;
  p : PExtended;
begin
  e := 3.41;
  New(p); // Einen Zeiger darauf erstellen
  p^ := 3.41; // Ich glaube das ^ ist unnötig
  list.objects[i] := TObject(p); // Ich weiß nicht ob er cast obsolet ist
  ShowMessage(FloatToStr(PExtended(list.objects[i])^));
  Dispose(p); // Den Wert wieder freigeben
end;

MfG
Fabian