请问怎么才能把word类型的数字分解成高位和低位，然后转化成char(30分)

孤

孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-21

• #1

scrc:word;
a1:=chr(high(scrc))
a2:=chr(low(scrc))
是这样的？

 

孤

孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-21

• #2

用hibyte(),lobyte()
提示没有定义

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-21

• #3

scrc :word;
a1:=char(scrc and $ff);
a2:=char(shr(scrc,8));

 

W

weiliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-21

• #4

var
w:word;
h,l:byte;
begin
w:=41833;
h:=hi(w);
l:=lo(w);
showmessage(chr(h)+' * '+chr(l));
end;

或者：
var
w:word;
h,l:byte;
begin
w:=41833;
h:=w shr 8;
l:=w and 255;
showmessage(chr(h)+' * '+chr(l));
end;

 

孤

孤云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-21

• #5

多人接受答案了。