如何把ASC码,转换成汉字,例如 ‘我‘转换成 ce d2 ,如何把ce d2 显示为汉字 我(10分)

  • 主题发起人 主题发起人 晓茜
  • 开始时间 开始时间

晓茜

Unregistered / Unconfirmed
GUEST, unregistred user!
你的分太少了
ASC到字符串 ord()
字符串到ACS chr()
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
s: string;
begin
s := '我';
i := $ce;
j := $d2;
showmessage(chr(i)+chr(j));
showmessage(inttostr(ord(s[1]))); //ce
showmessage(inttostr(ord(s[2]))); //d2
end;
 
后退
顶部