Delphi字节位操作

  type TBitCount = (Bit_8 =8,Bit_16=16,Bit_32=32);
                    
//getbit方法可以输入一个数,查询指定位是1还是0.
function getbit(number:Integer; //要查询位的数
                     nBit:Byte;         //要查数的第几位
                     BitCount:TBitCount //是输入的数的位数,8,16,32
                     ):byte; //函数返回的是要查的数的第几位的值

//SetBit设置一个数的第几位的值为1或0.
function SetBit(Number:integer; //要设置位的数
                      nBit:byte;          //数的第几位
                      BitCount:TBitCount; //数的位数,8,16,32
                      value:byte               //要置1或0,Value只能输入1或0.
                      ):Integer;                //返回修改位后的数

//取得一个数中从第几个位开始取多少个位的值
function getbits(Number:integer;//要取位的数
                       nBit,                //从第几位开始取位
                       iBit:byte;          //取多少位
                       BitCount:TBitCount //数的位数,8,16,32
                       ):integer;              //返回取位后的数

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

 

function getbit(number:Integer;nBit:Byte;BitCount:TBitCount):byte;
begin
   getbit:= byte((number shr (Ord(BitCount)-nBit)) and 1);
end;

//nbit第几位,Bit为8 16..value为0或1 ,返回设置位后的数
function SetBit(Number:integer;nBit:byte;BitCount:TBitCount;value:byte):Integer;
begin
   SetBit:=0;
   case value of
   0:SetBit:=Number and not(1 shl (Ord(BitCount)-nBit));
   1:SetBit:=Number or (1 shl (Ord(BitCount)-nBit));
   end;
end;

//nBit第几位开始,iBit选择多少位
function getbits(Number:integer;nBit,iBit:Byte;BitCount:TBitCount):integer;
var n,temp:integer;
begin
    temp:=0;
    for n:=0 to ibit-1 do
    temp:=SetBit(temp,Ord(BitCount)-n,BitCount,1);
    getbits:=(number shr (Ord(BitCount)-nBit-iBit+1) and Temp);
end;

function int2bin(Number:Integer;BitCount:TBitCount):string;
var
  ca:integer;
  cb:string;
begin
cb:='';
for ca:=1 to Ord(BitCount) do
   cb:= cb + Format('%x',[getbit(Number,ca,BitCount)]);
Result:=cb;
end;
 

例子:把start (byte类型) 最右边一位设置为1    函数返回值 为 1

SetBit(self.start,8,Bit_8,1);

你可能感兴趣的:(职场,休闲,Delphi字节位操作)