Delphi 位操作的函数

///// Delphi 位操作的函数(修改了一下，更靠近使用习惯) /////
unit BitControl;
interface
/// /||| INT32 INT16 BYTE |||/////
/// /|||第…. 8 7 6 5 4 3 2 1 位|||/////
/// /||| …… B7 B6 B5 B4 B3 B2 B1 B0 |||/////
uses SysUtils;
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; // 返回转换后的字符串
implementation
/// //////////////////////////////////////////////////////////////////////////////
function getbit(number: Integer; nBit: Byte; BitCount: TBitCount): Byte; begin
GetBit := number;
if nBit > Byte(BitCount) then exit; //要移动的位数大于总位数返回原值退出getbit := Byte((number shr ( nBit - 1)) and 1);
end;
// nbit第几位,Bit为8 16..value为0或1 ,返回设置位后的数
function SetBit(number: Integer; nBit: Byte; BitCount: TBitCount; value: Byte): Integer; begin
SetBit := number;
if nBit > Byte(BitCount) then exit; //要移动的位数大于总位数返回原值退出
case value of
0:
SetBit := number and not(1 shl (nBit - 1)); // (Ord(BitCount) - nBit));
// 用ord函数可以取得字符的ASCII码的值
// 函数的参数是一个字符型返回值是一个整型
1:
SetBit := number or (1 shl (nBit - 1)); // (Ord(BitCount) - nBit));
end;
end;
// nBit第几位开始,iBit选择多少位
function getbits(number: Integer; nBit, iBit: Byte;
BitCount: TBitCount): Integer;
var
n, numtmp,temp: Integer;
begin
getbits := number;
//要移动的位数大于总位数返回原值退出
if ((nBit > Byte(BitCount)) or((nBit+iBit) > Byte(BitCount)) ) then exit;
temp := number;
temp := temp SHR (nBit -1);
numtmp := 0;
for n := 1 to iBit do
numtmp:= SetBit(numtmp,n,BitCount,1);
getbits := temp and numtmp;
end;
function int2bin(number: Integer; BitCount: TBitCount): string;
var
ca:integer;
cb: string;
begin
cb := '';
for ca:=1 to Ord(BitCount) do
cb:= IntTostr(getbit(Number,ca,BitCount)) + cb;
Result := cb;
end;
end.。