Mal wieder HexToFloat

[SirNox]

Ich habe nach dem Standard mal gesucht und folgendes gefunden:
http://www.delphipraxis.net/120032-i...l-wandeln.html

Bei mir hat es dann funktioniert:

Delphi-Quellcode:

var
  Data: array[0..3] of byte;
  X: Real;
begin
  Data[3] := aMsg.TheMessage[offset];
  Data[2] := aMsg.TheMessage[offset + 1];
  Data[1] := aMsg.TheMessage[offset + 2];
  Data[0] := aMsg.TheMessage[offset + 3];
  X := PSingle(@data)^;