Eigentlich einfach mit TestBit, wobei mir auffällt, das dort der Text aus Profan 6 Zeiten um das neuere QuadInt ergänzt wurde.
Aber es wurde der Integer-Bereich übersehen.
N1 : Integervariable (Integer/LongInt/QuadInt) - Wert
N2 : Bitnummer (0 .. 15 / 0 .. 31 / 0 .. 63)
Integer hat bereits den gleichen Umfang wie LongInt, also 0..31
Man kann von Lo -> Hi (soll das sein "von links nach rechts"; nicht so klar das sein :Yoda)
auch mit AND und << (shift-left) machen. Die Gegenrichtung funktioniert allerdings nicht.
Da wird das Negativbit gesetzt und dann mit >> werden das alles 1-Bits