8 Integervariablen zu einem Byte

[jaenicke]

Delphi-Quellcode:

var
  var1, var2, var3, var4, var5, var6, var7, var8: Integer;
  ResultVar: Byte;
begin
  var1 := 0;
  var2 := 1;
  var3 := 0;
  var4 := 0;
  var5 := 0;
  var6 := 1;
  var7 := 1;
  var8 := 1;
  ResultVar := (var1 shl 7) or (var2 shl 6) or (var3 shl 5) or (var4 shl 4)
    or (var5 shl 3) or (var6 shl 2) or (var7 shl 1) or var8; // sollte 71 ergeben