====高分求解：如果编程实现 Edit1.Text := #127; ？？？？？

Question

像这样的语句可以顺利通过编译，
Edit1.Text := #127;现在我想让用户来输入这个数字 (127)，然后转换，请问，如何实现？？

Answer 1

随便让用户输入什么数字，然后实现
Edit1.Text := #ver;  //ver 是用户输入的数字

Answer 2

是啊，我知道用 Chr 函数，可这只能实现一般的字符，我现在是要用 #26381 这样的数字转换成汉字，Chr 函数没用。

Answer 3

区号+160 = B1
位号+160 = B2B1B2就是内码试试procedure TForm1.Label1Click(Sender: TObject);
var
    lnqw,lnqu,lnwei:integer;
begin
    lnqw:=$b5e7;
    lnwei:=lnqw and $ff;
    lnqu:=lnqw shr 8;
    label1.Caption:=char( lnqu )+ char( lnwei );
end;

Answer 4

谢谢楼上的，可是，照上面的方法，我把 26381 代进去，可惜结果不是汉字，而是一个字母 g，呵呵~~~~ 实验证明，26381 不是内码，而是 Ascaii 码

Answer 5

S := WideChar(StrToIntDef(Copy('S', 2, MaxInt), 0));例如输入333333即可得到#333333对应的汉字'舵'
var
  S: string;
begin
  S := Edit1.Text;
  S := WideChar(StrToIntDef(Copy(S, 2, MaxInt), 0));
  ShowMessage(S);
end;