4 Bytes als Float betrachten

[uligerhardt]

Man könnte auch einfach ein array of Byte und nen simplen Cast nehmen:

Delphi-Quellcode:

procedure Test;
var
  bytes: array[0..3] of Byte;
  i: Integer;

  procedure WriteIt;
  var
    i: Integer;
  begin
    Write(Single(bytes): 5: 5, '= (');
    for i := 0 to 2 do
      Write(bytes[i], ', ');
    Writeln(bytes[3], ')');
  end;

begin
  Single(bytes) := Pi;
  WriteIt;

  for i := 0 to 3 do
    bytes[i] := 0;
  WriteIt;

  bytes[0] := 219;
  bytes[1] := 15;
  bytes[2] := 73;
  bytes[3] := 64;
  WriteIt;
end;

Uli.