HexString to IEEE574 64 Bit

[tofse]

Ich verstehe es leider nicht ganz, aber vom Prinzip her meinte ich das mit Optimieren
http://docwiki.embarcadero.com/CodeE...thods_(Delphi)

Habe versucht, das so umzusetzen

Delphi-Quellcode:

  var hexstr,LStr2:WideString;
      Ergebnis:Extended;     
      Erg:^Extended;
...

  SetLength(LStr2, Length(hexstr) div 4);
  { Call the hexadecimal to binary conversion procedure. }
  HexToBin(PWideChar(hexstr), LStr2[1], Length(hexstr) div SizeOf(Char));
  Erg:=@LStr2[1];
  Ergebnis:=Erg^;

Wenn ich als Beispiel wieder das hier nehme E17A14AE47613740 kommt nicht 23.38 raus