Extended aus File of Record in 64 Bit lesen

[Uwe Raabe]

Dazu musst du die Felder als TExtended80Rec deklarieren. Diese kannst du dann zum Lesen als als Extended casten bzw. per TExtended80Rec-Cast beschreiben. Der Cast auf Extended hat den Vorteil, dass man bei 32-Bit die Genauigkeit nicht verliert.

Update: Ich habe noch ein Beispiel gefunden, wo Extended-Werte plattformneutral in einen Stream gespeichert und daraus gelesen werden:

Delphi-Quellcode:

procedure TExtendedValue.LoadFromStream(Stream: TStream);
var
  buffer: TExtended80Rec;
begin
  Stream.ReadBuffer(buffer, Sizeof(buffer));
  FValue := Extended(buffer);
end;

procedure TExtendedValue.SaveToStream(Stream: TStream);
var
  buffer: TExtended80Rec;
begin
  buffer := TExtended80Rec(FValue);
  Stream.WriteBuffer(buffer, Sizeof(buffer));
end;