delphi中ASCLL码转汉字

s:='#32259';

s:=        ?  怎么处理？

showmessage(s); 显示一个汉字

这样行 s:=#32259; 但是我是取字符串来转换过来，

谢谢了，行了我给分。

区位码转汉字跟ASCLL码转汉字差不多。

var
s:string;
a,b,c:integer;
begin
    a:=length(edit1.Text);
    if a<>4 then
    begin
    showmessage('请输入四位数字');
    end
    else
    begin
    s:=Trim(edit1.Text);
    b:=StrToInt(copy(s,1,2))+$a0;
    c:=StrToInt(copy(s,3,2))+$a0;
    showmessage(char(b)+chr(c));
    end
end;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息