Extended aus File of Record in 64 Bit lesen

[himitsu]

Teilweise.
Die einzelnen Teile/Bits auslesen, einige LSB (shr) oder eher MSB weglassen/abschneiden und sie in ein Double einfügen.

Zumindestens beim Double kannst du den Record-Helper oder das Helper-Record nutzen .. den vom Extended wirst'e dir wohl vorher in eine eigene Unit kopieren müssen. *1

TDoubleRec (System.pas) oder TDoubleHelper (SysUtils)
https://de.wikipedia.org/wiki/IEEE_754
https://www.delphipraxis.net/214894-...-auslesen.html



Wie gesagt, offiziell war es nie für die Verwendung vorgesehen und schon garnicht für eine externe Speicherung ... drum wird es diesen Fall eh nie geben, dass man sowas mal tun wöllte.





*1
Der Record ist zwar da, aber unter 64 Bit kompiliert, wird er dir so nichts nützen, da
[EDIT] ahhh cool, der Helper-Record ist immer 80 Bit. Der Record-Helper aber nicht.

Delphi-Quellcode:

function TExtendedHelper.GetExp: UInt64;
begin
{$IFDEF EXTENDEDHAS10BYTES}
  Result := InternalGetWords(4) and $7FFF;
{$ELSE  !EXTENDEDHAS10BYTES}
  Result := (InternalGetWords(3) shr 4) and $7FF;
{$ENDIF !EXTENDEDHAS10BYTES}
end;

Man sollte sowieso NIEMALS veränderliche Typen binär abspeichern, sei es Char (AnsiChar/WideChar), NativeInt oder dergleichen.
Extended hat 10 DatenBytes, oder 8 (Alias für Double), oder doch 10 aber intern 8 genutzt (intern Double) oder 16 Byte (intern 8 genutzt) groß