Bits to Byte?

[Dax]

Das sollte einfach sein.

Delphi-Quellcode:

var bits: array[0..7] of boolean;
  b: byte;
  i: integer;
const
  bit: array[boolean] of byte = (0, 1);

b := 0;
for i := 0 to 7 do
  b := b shl 1 or bit[bits[i]];