关于异或算法，请高手指点

Question

数据库有一整形字段用于记录某一对象4个bool型的属性如16，那么就是1000，即表示第一种属性为真，其它为假，那么在我取得数据库该字段数据譬如18即1010，那么当要修改第三种属性为0时，算法如何写？

Answer 1

$1010 and $1101
  即18 and $1101;

Answer 2

好像不对，我的意思是如18（A）它的第三位属性，由B(2),来决定，
如果A = 16 即1000，那么当B = 2即10是那么 A = 1010,也就是说第三位由B决定，明白我的意思吗

Answer 3

再说一次：
  若A=1000(二进制)  其十进制度不是16，是8!!!!
坦白的说你是想干什么？？   想看看A中是否有B这个属性值，还是要设置A中有B这个属性值？？？

Answer 4

就是二进制某一位由另外一个bool型变量决定的意思

Answer 5

不好意思我弄错了，那就10000吧，^_^，我很坦白的说，就是A中某一位由B这个Bool型决定的意思

Answer 6

var
  A, B: integer;
begin
  A := 16;
  B := 2;
  A := A or B;
end;