Zahl wieder in String umwandeln

[Thomas Feichtner]

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.

[Sir Rufo]

IMHO ist die Umsetzung ein Paradebeispiel für Don't do that at home

Verstehen würde ich ja die Basis-Funktionen BinToFloat und FloatToBin um diese dann in den Wrapper-Funktionen HexToFloat und FloatToHex zu verwenden.

Aber so wird das weder DRY noch KISS