32bit dword / wie finde ich raus ob bit 0,1 oder 2 gesetzt ?

[himitsu]

Delphi-Quellcode:

Var Bit: Boolean;

Bit0 := (irrgendwas and $01) <> 0; {1. Bit / niedrigstes Bit}
Bit1 := (irrgendwas and $02) <> 0; {2. Bit}
Bit2 := (irrgendwas and $04) <> 0; {3. Bit}
Bit3 := (irrgendwas and $08) <> 0; {4. Bit}
Bit4 := (irrgendwas and $10) <> 0; {5. Bit}
Bit15 := (irrgendwas and $80) <> 0; {16. Bit}
Bit30 := (irrgendwas and $4000) <> 0; {31. Bit}
Bit31 := (irrgendwas and $4000) <> 0; {32. Bit / höchstes Bit}