Hallo,
nach einigen Suchen habe ich es doch gefunden.
Developer Netword
Delphi-Quellcode:
function FloatToHex(const x: double): string; overload;
type tBA = array [0..SizeOf(x)-1] of byte;
var Buf: tBA; i: integer;
begin
For i := 0 to high(tBA)
do Buf[high(tBA)-i] := tBA(x)[i];
Buf[0] := Buf[0] xor $80;
SetLength(Result,SizeOf(Buf)*2);
BinToHex(@Buf,PChar(Result),SizeOf(Buf));
end;
Bei den Daten die ich auslesen muss lag es noch daran, dass der Wert mit * - 1 multipliziert werden musste.