Bits to Byte?

[NikoMitDaMacht]

Hi !
Auch wenn die Frage etwas,nun ja, blööd ist stell ich sie trozdem:

Wie kann ich ein 8 stelliges array von booleans zu einem Byte zuammenfügen?

[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]];

[NikoMitDaMacht]

Super danke! :thumb: