建立 form1,在form1上添加edit1,edit2,button1;
用edit1输入十进制数,输入后点button1,在edit2
里即出现十进制数所代表的汉字(当然要在中文操作系统中);
procedure TForm1.Button1Click(Sender: TObject);
var
i:word;
nmh,nml:byte;
begin
i:=strtoint(edit1.text);
asm
mov ax,i
mov nmh,ah
mov nml,al //把十六进制数的高低字节赋给nmh,nml
end;
edit2.Font.Size:=16;
edit2.Font.Color:=clred;
edit2.Text:=char(nmh)+char(nml);//edit2中出现的即汉字
end;
说白了,汉字和英文都是用asc码表示的,只是汉字asc码范围
与英文不一样,中文操作系统会自动把汉字内码转换成可视的汉
字在操作界面中显示出来;