Umwandlung 4byte Hex zu IEEE single

[Neutral General]

Hallo,

Du hast also einen String?

Guck mal:

Delphi-Quellcode:

uses
  StrUtils; // Für ReverseString

procedure TForm1.FormCreate(Sender: TObject);
var tmp: Single;
    str: AnsiString;
begin
  str := '½áG®';
  str := ReverseString(str);
  tmp := PSingle(@str[1])^;
  Caption := FloatToStrF(tmp,ffNumber,3,2);
end;

Weiß nicht wie du den String reinbekommst. Wenns bei dir in der Praxis nicht funktioniert, dann lass das ReverseString mal weg.

Nachtrag: Wenn du die Daten auch als Bytes/Byte-Array o.ä. bekommst, dann wäre so ein Varianten-Record wie guinnes es vorgeschlagen hat natürlich eleganter.