先谢了,请问高手在delphi中如何对2进制的 bit位操作

[ruirui]

实时采集的数据传过来的字节中每个位都包含了各种信息,如何对这些位操作?比如读某个位或几个位判断是0还是1...
我是新手,请多指教

[jiangtao]

这种问题应该查Help，不会查Help编程可就太痛苦了
And
Or
Xor
以下
Shr,
Shl

[caili]

使用and

[Zboy]

使用and运算。‘字节数据’and‘00000001’可截获第一位,如此类推，and ‘00000010’，‘00000100’。。。。。。。

[kxy]

{Helper for for one byte flags}
{------------------------------------------------------------------------------}
procedure LMDSetBit(var holder:Byte; bit:Byte; aValue:Boolean);
begin
if aValue then
holder:=holder or (1 shl bit)
else
holder:=holder xor (1 shl bit);
end;

{------------------------------------------------------------------------------}
procedure LMDSetBitUpTo(var Holder:Byte; upTo:Byte);
var
i:Integer;
begin
For i:=0 to upTo do LMDSetBit(Holder, i, True);
end;

{------------------------------------------------------------------------------}
function LMDGetBit(holder, bit:Byte):Boolean;
begin
result:=((1 shl bit) and Holder=(1 shl bit));
end;

给我一些分吧

[monkey]

其中之一使用左移和右移运算符