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?

Das sollte einfach sein.

markieren

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!

Bits to Byte?

Bits to Byte?

Re: Bits to Byte?

Re: Bits to Byte?

Forumregeln

NikoMitDaMacht Registriert seit: 27. Apr 2004 Ort: Freiburg 298 Beiträge Delphi 6 Enterprise	#1 Bits to Byte? 4. Jun 2007, 17:09 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? Niko Alles was ein Ende hat, hat auch ein Anfang
	Zitat

Dax (Gast) n/a Beiträge	#2 Re: Bits to Byte? 4. Jun 2007, 17:12 Das sollte einfach sein. markieren 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]];
	Zitat

NikoMitDaMacht Registriert seit: 27. Apr 2004 Ort: Freiburg 298 Beiträge Delphi 6 Enterprise	#3 Re: Bits to Byte? 4. Jun 2007, 17:15 Super danke! Niko Alles was ein Ende hat, hat auch ein Anfang
	Zitat