Hex-Wert in Delphi übernehmen

[Furtbichler]

Zitat von RWarnecke:

Wie soll mir das weiterhelfen ? Ich verstehe Deinen Post nicht.

So:

Delphi-Quellcode:

Type
  TDoubleConversion = record
    case boolean of
      false : (asDouble : Double);
      true  : (asBytes : Array [0..7] Of Byte);
  End;

var
  X : TDoubleConversion;

Begin
  x.AsBytes := HexStringToByteArray(yourHexStringHere);
  writeln(x.asDouble);
End;

Aber es sind ja 16 Bytes (war vorhin zu faul zum lesen, mal wieder). Ergo vielleicht so

Delphi-Quellcode:

  TExtendedConversion = record
    case boolean of
      false : (asExtended : Extended);
      true  : (asBytes : Array [0..15] Of Byte);
  End;