Test for bit set in integer value

Slawek_Guzek

Do you need to know if some bit is set in some integer value ?

I didn't manage to find simple binary AND operator, so had to write this test in a little more complicated way

testForBit(BitNo : Integer;Value : Integer) : Boolean
// test if bit BitNo is set in word Value
IF (BitNo >=0) AND (BitNo < 32) THEN
EXIT( POWER(2,BitNo) <= (Value MOD POWER(2,BitNo+1)) );


Enjoy,
Slawek Guzek