einzelne bytes in ein 4-byte int umwandeln

[Uwe Raabe]

Zitat von JayZ:

geil danke! da werden mir ja ganz neue seiten von delphi gezeit nur so aus interesse... gibts da auch ne möglichkeit mit shl und shr die nicht allzu komplex ist?

Nee, nicht wirklich:

Delphi-Quellcode:

function GetByte(Index, Value: Integer): Byte;
var
  BitsToShift: Integer;
begin
  BitsToShift := (Index xor 3) shl 3;
  result := (Value and ($FF shl BitsToShift)) shr BitsToShift;
end;