如何得到一个字符(比如‘A’或‘翁’)的高位和底位?(50分)

  • 主题发起人 主题发起人 城里的月饼
  • 开始时间 开始时间

城里的月饼

Unregistered / Unconfirmed
GUEST, unregistred user!
var a:array[1..2]of byte;
s:string;
s:='字 ';
move(s,a,2);
 
copy(1,2,IntToStr(word('A')));
copy(3,2,IntToStr(word('A')));
 
var
PC:string;
a,b:byte;
begin
PC:='翁';
a:=Ord(PC[1]);

b:=Ord(PC[2]);//如果PC位PChar则取PC[0],PC[1]
end;
 
普通的西文字符的高位是0吗?
中文字符的高位不是0,对吗?
 
你门说的只是得到字符(包括一半中文字符)的ASCII码,不是一个字符的高低位,
我要的是一个字符哪怕是半个中文字符的高低位。如:一个中文字符是有两个高位和两个
低位构成,一个西文字符是由一个高位和一个低位构成的。
 
用Lo(x:integer),hi(x:integer)試一下.
如得到'A'的高位是:hi(integer('A')),低位為:Lo(integer('A'));
 
后退
顶部