Dezimal zu floating hex 8 byte ?

[himitsu]

Delphi-Quellcode:

var
  D: Double;
  S: string;

@D ist der Zeiger auf die binären Daten der Variable.
Dazu liest du dir einfach mal BinToHex durch und schon hat man eine ordentlich Lösung.

Delphi-Quellcode:

D := 123.465;

SetLength(S, SizeOf(D) * 2);  // zwei Zeichen pro Byte
BinToHex(D, PChar(S), SizeOf(D));  // oder BinToHex(@X, PChar(S), SizeOf(X));

Edit1.Text := S;