8 Integervariablen zu einem Byte

[DeddyH]

Oder gleich als Funktion?

Delphi-Quellcode:

uses math;

function IntArrayToByte(IntArray: array of integer): Byte;
var
  i: integer;
begin
  Result := 0;
  for i := Low(IntArray) to math.Min(High(IntArray), 7) do
    Result := Result or (IntArray[i] and 1) shl i;
end;