Single in Byte-Array konvertieren und umgekehrt

[Apollonius]

Ein Single ist vier Byte lang. Also kannst du so vorgehen:

Delphi-Quellcode:

var s: Single; b: array[0..3] of Byte;
begin
  //hin
  b[0] := PCardinal(@s)^ and $FF;
  b[1] := (PCardinal(@s)^ shr 8) and $FF;
  b[2] := (PCardinal(@s)^ shr 16) and $FF;
  b[3] := (PCardinal(@s)^ shr 24) and $FF;
  //zurück
  s := PSingle(@b[0])^;
end;