Moin.
Wollte mal um verschiedene Möglichkeiten der Bitabfrage in einem Byte (oder Integer) fragen. Suche nämlich nach einem möglichst einfachen Weg diese abzufragen und/oder zu schreiben, der auch in einer Zeile Platz findet.
Hier ein Beispiel:
Delphi-Quellcode:
// n=0 für das linke Bit
function BitIsSet(B,n : Byte):Boolean;
begin
B:=B shl n;
if B>127 then Result:=True else Result:=False;
end;