怎么测试一个BYTE中某一位是1啊？请指点最简单的办法

[9551226]

。

[keyz]

a:byte;
x:integer;

if (a and (1 shl x)) <> 0 then ...

[good_student]

var
a: byte;
i: integer;
begin
for i := 0 to 7 do
if (a shr (7 - i)) and 1 > 0 then
...

[ChinaCom]

a : Byte;
x : integer;
x := a and 1 ;
if x =1 then
....
else ....

[chll]

//取位
function GetBit(X:Byte; Index:Bit):Boolean;
begin
Result:=(X and ( 1 shl Index)) <> 0;
end;