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

转载于 2008-11-27 13:29:00 发布 · 72 阅读

本文介绍了一种使用UE将一个汉字拆分为多个CHAR的方法，并通过Delphi代码示例展示了如何实现这一过程。该方法对于理解汉字在计算机中的编码方式及字符处理具有一定帮助。

如何将一个汉字拆分为二个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;