hz:='汉';Hi,Lo :byte;Hi:=ord(hz[1]);
Lo:=ord(hz[0]);汉字内码:=(Hi<<8)&Lo;
Lo:=ord(hz[0]);汉字内码:=(Hi<<8)&Lo;
解决方案 »
- 我有个问题要请教各位大虾!我觉得比较棘手!!!(高分!!!!!)
- 新人来报到,先散分认识点朋友,来者有分
- 主窗体的界面问题,我要让mdilchildform出现在panel上面.
- 【交流贴】
- 请问怎样在表中做查询?
- 大家新年好,谁有用richview开发的字处理系统的源码
- 高手帮我!
- UPDATE MORE THEN ONE RECORD?
- 1、如何使用图片做按钮(20分) 2、小数的位数如何截取(20分)详见内容
- 没人回答吗?(在Delphi中使用Excel.Application的一些问题)本人有2000分的可用分可是只能给36分为什么不知道不过一事定补分?多谢了各位大侠!
- 如何显示产品列表,当产品太多了的时候?
- 有关DCOM的配置问题?
var
Hi,Lo :byte;
HZword :word;
s:string;
begin
s:=edit1.Text;
Hi := ord(s[1]);
Lo := ord(s[2]);
HZword := (Hi shl 8) xor Lo;
Label1.Caption := intToHEX(HZword,4);
end;