Z ZRY Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-14 #2 只需将汉字的两个字节的ASCII码各减去160($A0)即可，第一字节是区码， 第二字节是位码。
J jobsxy Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-14 #3 ZRY: 不好意思，如何取得ASCII，我这样写好象不行 ord(Copy('啊',0,1));
J jobsxy Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-14 #5 小天：还是一样出现错误信息 Incompatible types
小 小天 Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-14 #6 sorry，刚才忘了，要做格式转换 var s:string; ... s:=copy('啊',1,1); ord(s[1]); ... s:=copy('啊',2,1); ord(s[1]); ...
sorry，刚才忘了，要做格式转换 var s:string; ... s:=copy('啊',1,1); ord(s[1]); ... s:=copy('啊',2,1); ord(s[1]); ...
Z ZRY Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-14 #7 用以下代码就行了： procedure GetQWCode(HZ: string var Q, W: Word); begin Q := Byte(HZ[1]) - $A0 这是区码 W := Byte(HZ[2]) - $A0 这是位码 end;
用以下代码就行了： procedure GetQWCode(HZ: string var Q, W: Word); begin Q := Byte(HZ[1]) - $A0 这是区码 W := Byte(HZ[2]) - $A0 这是位码 end;
