einzelne bytes in ein 4-byte int umwandeln

[t.roller]

Noch eine Lösung:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
aByte   : Packed array[0..3] of Byte;
dwErgebnis  : DWord  absolute aByte;
begin
  //Einzelbyte eintragen
  aByte[0]  :=$10;
  aByte[1]  :=$20;
  aByte[2]  :=$30;
  aByte[3]  :=$40;
  //Ergebnis verwenden
  Label1.Caption:= IntToStr(dwErgebnis);
end;