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(In

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)));//向左移位 *** 作，结果为18end;

2、获取整数二进制的位数，代码如下：

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;

3、获取整数的二进制并返回字符串形式

点击打开链接

总结

以上是内存溢出为你收集整理的Delphi 位 *** 作全部内容，希望文章能够帮你解决Delphi 位 *** 作所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。