8 Integervariablen zu einem Byte

[p80286]

Lieber so:

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 and 1) shl 7) or ((var2 and 1) shl 6) or ((var3 and 1) shl 5) or ((var4 and 1) shl 4)
    or ((var5 and 1) shl 3) or ((var6 and 1) shl 2) or ((var7 and 1) shl 1) or (var8 and 1); // sollte 71 ergeben

Gruß
K-H