zweitkleinste Informaionseinheit

[Elite-Koennen]

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;