einzelne bytes in ein 4-byte int umwandeln

[Geda]

var
b1, b2, b3, b4 : byte;
int : integer;
begin
b1 := $AB;
b2 := $CD;
b3 := $EF;
b4 := $42;

int := b1;
int := (int shl 8) + b2;
int := (int shl 8) + b3;
int := (int shl 8) + b4;

ShowMessage(IntToHex(int, 8));


Gruß,

Geert