bit bazında işlem nasıl yapabilirim?

[cfyasar]

word tipinde bir hex üzrinde işlem yapmak istiyorum. mesela hex $0400 olsun. bit olarak 0000 0100 000 0000 burda bitleri kontrol etmem gerekli.
bit0 1 mi sıfır mı, bit6 1 mi sıfır mı. bunu nasıl yapabilirim?

[mege]

Kod: Tümünü seç

var T:Word;

if (T AND $0001)<>0 
 ...

bu tarz bi kontrol yapabilirsin burda $0001 ı bi diziye bunuda bi fonksiyona bağlarsan tüm programında kullanırsın.

veya set veya resetlemek için

Kod: Tümünü seç

if şart then
   T:=T OR $0001
else
   T:=T AND $FFFE;