Byte-Wert in 8 Bool-Variablen anzeigen - wie am einfachsten?

[Khabarakh]

Oder allgemein:

Delphi-Quellcode:

// Binäre Darstellung eine Speicherstelle der Länge ASize (in Byte) als
// dynamisches Boolean-Array
function GetBits(const AValue; const ASize: Cardinal): TBooleanDynArray;
var
  i: Integer;
begin
  SetLength(Result, ASize * 8);
  for i := 0 to ASize * 8 - 1 do
    Result[i] := PByte(Integer(@AValue) + i div 8)^ and (1 shl (i mod 8)) <> 0;
end;

[add] @Dax: Du weißt einem Boolean ein Byte zu . [/add]