Delphi 位操作

1、与运算等位操作，代码如下：

procedure TForm1.Button1Click(Sender: TObject);
Var
   x,y,z:Byte;
begin
   x:=10;//二进制:1010
   y:=12;//二进制:1100
   ShowMessage(InttoStr(x and y));//显示与运算结果,结果为:1000
   ShowMessage(InttoStr(x or y));//显示或运算结果,结果为1110
   ShowMessage(InttoStr(x Xor y));//显示异或运算，结果为:0110,异或操作两位相同为0，不相同为1，所以结果为6
   ShowMessage(InttoStr(9 shr(3)));//向右移位操作，结果为1
   ShowMessage(InttoStr(9 shl(1)));//向左移位操作，结果为18
end;

Function GetBitCount(x:Integer):Integer;
Var
  D,M:Integer;
Begin
   Result:=0;
   Repeat
     D:=x Div 2;
     M:=x Mod 2;
     x:=x Div 2;
     Result:=Result+1;
   Until((D=0) and (M=1));
End;


procedure TForm1.Button2Click(Sender: TObject);
begin
   ShowMessage(InttoStr(GetBitCount(12)));
end;

点击打开链接