Umwandlung 4byte Hex zu IEEE single

[guinnes]

Nimm einen VariantenRecord :

Delphi-Quellcode:

Type
  TByteToSingle = Record
    Case Integer of
      1 : (TheBytes : Array[0..3] of Byte);
      2 : (TheSingle : Single);
    end;


Var
  MyRec : TByteToSingle;
Begin
  MyRec.TheBytes[0] := Dein1.Byte;
  MyRec.TheBytes[1] := Dein2.Byte;
...
  Result := MyRec.TheSingle;