如何实现：在Edit1中输入汉字的同时，在Edit2中显示每个汉字的声母字符？

Question

例如：在Edit1中要输入'孙悟空'三个汉字，每输入一个汉字就会在Edit2中显示其声母。即：
'孙悟空'  －－Edit1中输入的内容
'swk'     －－Edit2中实时显示的内容
而得到某个汉字的声母的函数已有现成的：Function GetPY(hzchar:string): char;
应如何编程实现？谢谢！

Answer 1

procedure TForm1.Edit1Change(Sender: TObject);
var i,n:integer;
begin
  n:=length(Edit1.Text);
  Edit2.Text:='';
  if n mod 2=0 then
   for i:=1 to n div 2 do
   Edit2.Text:=Edit2.Text+GetPY(copy(Edit1.Text,2*i-1,2));
end;

Answer 2

在OnChange事件里面写不就行了吗?

Answer 3

在焦点离开写就行吧，这样效率还高一些我觉得啊－－－－－－－－－－－－－－－－
『  http://www.coderpub.com  』
－－－－－－－－－－－－－－－－
java,j2me,delphi,asp.net,C#