einzelne bytes in ein 4-byte int umwandeln

[DeddyH]

Es ginge auch mit einem varianten Record:

Delphi-Quellcode:

type
  TZahl = record
    case integer of
      1: (Zahl: integer);
      2: (b4, b3, b2, b1: Byte)
  end;


procedure TFormTest.FormCreate(Sender: TObject);
var
  Zahl: TZahl;
begin
  Zahl.b1 := $AB;
  Zahl.b2 := $CD;
  Zahl.b3 := $EF;
  Zahl.b4 := $42;
  ShowMessage(IntToHex(Zahl.Zahl, 8));
end;