Float Zahlen in Hex Zahlen umwandeln

[gammatester]

Mit Delphi 7 wird das so nicht gehen. Sicher und ohne Angst kann man es so machen (mit write als Ersatz für Sende_Hex):

Delphi-Quellcode:

type
  TSingleByteArray = packed array[0..3] of byte;  {Single as array of bytes}
var
  s: single;
  i: integer;
begin
  s := 1.12;
  for i:=0 to 3 do write(TSingleByteArray(s)[i]:4);
end;