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;