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);