Delphi 位操作介绍分析和总结.docx

Delphi位操作介绍

一般高级语言编程很少用得到位操作,像这种功能一般只是应用到单片机的程序开发当中,因为高级语言只提供最小单位Byte(字节)操作,但如果想做一些以位作记录的数据就得要用到位操作了,以下写的几个对位操作的函数:

//定义位

typeTBitCount=(Bit_8=8,Bit_16=16,Bit_32=32);iptvforum.asia

//getbit方法可以输入一个数,查询指定位是1还是0.functiongetbit(number:Integer;//要查询位的数nBit:Byte;//要查数的第几位

BitCount:TBitCount//是输入的数的位数,8,16,32

):byte;//函数返回的是要查的数的第几位的值china365.asia

//SetBit设置一个数的第几位的值为1或0.functionSetBit(Number:integer;//要设置位的数nBit:byte;//数的第几位

BitCount:TBitCount;//数的位数,8,16,32value:byte//要置1或0,Value只能输入1或0.

):Integer;//返回修改位后的数

//取得一个数中从第几个位开始取多少个位的值functiongetbits(Number:integer;//要取位的数nBit,//从第几位开始取位

iBit:byte;//取多少位BitCount:TBitCount//数的位数,8,16,32

):integer;//返回取位后的数

//这个函数可以把一个数转换为二进制值的字符串functionint2bin(Number:Integer;//要转换的数BitCount:TBitCount//数的位数,8,16,32

):string;//返回转换后的字符串51

functiongetbit(number:Integer;nBit:Byte;BitCount:TBitCount):byte;begin

getbit:=byte((numbershr(Ord(BitCount)-nBit))and1);end;

//nbit第几位,Bit为816..value为0或1,返回设置位后的数

functionSetBit(Number:integer;nBit:byte;BitCount:TBitCount;value:byte):Integer;begin

SetBit:=0;casevalueof

0:SetBit:=Numberandnot(1shl(Ord(BitCount)-nBit));1:SetBit:=Numberor(1shl(Ord(BitCount)-nBit));end;

end;china365.asia

//nBit第几位开始,iBit选择多少位

functiongetbits(Number:integer;nBit,iBit:Byte;BitCount:TBitCount):integer;varn,temp:integer;

begintemp:=0;

forn:=0toibit-1dotemp:=SetBit(temp,Ord(BitCount)-n,BitCount,1);

getbits:=(numbershr(Ord(BitCount)-nBit-iBit1)andTemp);end;

functionint2bin(Number:Integer;BitCount:TBitCount):string;var

ca:integer;cb:string;begincb:=;

forca:=1toOrd(BitCount)docb:=cbFormat(%x,);Result:=cb;

end;

以上的函数,如果对汇编程序熟悉的朋友在Delphi嵌入汇编,运行速度应该比上面的代码快上很多

本文来自: 我要研发网() 详细 出处参考：

http://51/program/Delphi46238.html