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

[alzaimar]

Komische Frage, weil man Variablen nicht ansteuert...
Um zu prüfen, ob das N.te Bit (N=0..7) gesetzt ist, kannst Du das hier machen:

Delphi-Quellcode:

Function IsBitSet (aByte : Byte; aBit : Byte) : Boolean;
Begin
  Result := (aByte and (1 shl aBit)) <> 0;
End;