einzelne bytes in ein 4-byte int umwandeln

[OlafSt]

Wenn es nicht 64-Bit sein muß, dann ginge auch noch sowas:

Delphi-Quellcode:

var
   b1,b2,b3,b4: byte;
begin
   Int:=$ABCDEF42;
   asm
      mov eax,Int
      mov b4,al
      mov b3,ah
      shl eax,2
      mov b2,al
      mov b1,ah
   end;
end;