Die JCL
http://jcl.sf.net haelt dafuer die schoene Funktion BitsToBooleans in JclLogic.pas vor.
Delphi-Quellcode:
var
I: Integer;
Bools: TBooleanArray;
B: Byte;
begin
B := 255; // Beispiel
BitsToBooleans(B, Bools, True); // True bewirkt das alle 8 Bits in Bools eingetragen werden
for I := Low(Bools) to High(Bools) do
// nun Bools[I] benutzen