避免用uedit之类的可以直接看到字符串常量

如何将一个汉字拆分为二个CHAR呢？用UE。

 

 

procedure TForm1.btn1Click(Sender: TObject); 
var 
  t:array[1..20] of char; 
  s:string; 
begin 
  t[1]:=Char(185); 
  t[2]:=Char(167); 
  t[3]:=Char(207); 
  t[4]:=Char(178); 
  t[5]:=Char(196); 
  t[6]:=Char(227); 
  t[7]:=Char(163); 
  t[8]:=Char(172); 
  t[9]:=Char(215); 
  t[10]:=Char(162); 
  t[11]:=Char(178); 
  t[12]:=Char(225); 
  t[13]:=Char(179); 
  t[14]:=Char(201); 
  t[15]:=Char(185); 
  t[16]:=Char(166); 
  t[17]:=Char(193); 
  t[18]:=Char(203); 
  t[19]:=Char(163); 
  t[20]:=Char(161); 
  s:=t; 
  ShowMessage(s);   //将显示 恭喜你，注册成功了。 
end;