送分题，关于WORD型转成低高位的运算。(20分)

C

cjsam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #1

我定义一个变量
VAR a:word;
现在我要分出它的低高位。
例如：
VAR
a:word;
higha,lowa:byte;
begin
a:=$20;
higha:=
lowa:=
//怎样求 higha,lowa(他们是将OX14分解成低位和高位的。)的值end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #2

你上面的说法是不对的，$20 已经是十六进制表示！！

procedure TForm1.Button2Click(Sender: TObject);
VAR
a:word;
higha,lowa:byte;
begin
a:=$2111;
higha:=hi(a);
lowa:=lo(a);
end;

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #3

HIBYTE()
lobyte()函数

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #4

procedure TForm1.Button2Click(Sender: TObject);
VAR
a:word;
higha,lowa:byte;
begin
a:=$2111;
higha:=hi(a)
//0x21
lowa:=lo(a)
//0x11
showmessage(inttohex(integer(higha),2));
showmessage(inttohex(integer(lowa),2));

end;

 

M

Milpas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #5

用shl或shr来移位就可以

 

C

cjsam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #6

to:jsxjd,
你是什么意思？我知道$20本来就是16禁止呀，但是我要把它分成两个BYTE型
分别是低位和高位。

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #7

你的$20，相当于10进制的32，他只占一个字节，如果赋给word类型的变量，高位全是0
所以hi取出来是0，LO取出来还是$20。

 

C

cjsam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #8

多人接受答案了。