BYTE 的问题(100分)

cgd555 · 2004-01-08

我最近做一个52系列的编译器，其中用到byte定义一个字节，
如
var
h:byte;
h:=$aa;
请问各位大侠，可不可以知道h 的每一位是多少？如 h.0,h.1,h.2..h.7是不是代表h的7位？

jackchin · 2004-01-08

$aa ->bin :10101010
h0=0,h1=1,h2=0,h3=1,h4=0,h5=1,h6=0,h7=1

cgd555 · 2004-01-10

对不起，我没说清楚，我的意思是定义了一个byte变量后，怎么在delphi中调用她的
每一位，如果不行，是不是有别的方法？

andy263 · 2004-01-10

刚才看错了 ^_^

intstr后 1位1位的拆吧

^nEWnEW^ · 2004-01-10

andy263不会是开玩笑吧？？？？

我想楼主的意思应该是把10进制转换成2进制。

cgd555 · 2004-01-10

是这样的，我想做一个单片机的编译系统，其中有很多对字节位的操作，无从下手
不知道有没有认做过，给点意见

wr960204 · 2004-01-10

var
A:Byte;
begin
if (A and $01)=$01 then
begin
ShowMessage('第8位为1');
end;
end;

cgd555 · 2004-01-10

谢谢

SupermanTm · 2004-01-11

访问 X.Y 的函数
function BitOfByte(X, Y: Byte): Boolean;
begin
Result:= (X and (1 shl Y)) <> 0;
end;

cgd555 · 2004-01-11

接受答案了.