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

Question

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

Answer 1

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

Answer 2

{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;给我一些分吧