大家帮我解释一下这段汉字转化为拼音简码的程序。顺便帮我改一下使我在edit1中输入字母和数字时能在edit2中显示。

Question

function getPY(hzchar:string):char;
begin
case word(hzchar[1])shl 8+word(hzchar[2]) of
$B0a1..$B0c4:result:='A';
$B0C5..$B2C0:result:='B';
$B2C1..$B4ED:result:='C';
$B4EE..$B6E9:result:='D';
$B6EA..$B7A1:result:='E';
$B7A2..$B8C0:result:='F';
$B8C1..$B9FD:result:='G';
$B9FE..$BBF6:result:='H';
$BBF7..$BFA5:result:='J';
$BFA6..$C0AB:result:='K';
$C0AC..$C2E7:result:='L';
$C2E8..$C4C2:result:='M';
$C4C3..$C5B5:result:='N';
$C5B6..$C5BD:result:='O';
$C5BE..$C6D9:result:='P';
$C6DA..$C8BA:result:='Q';
$C8BB..$C8F5:result:='R';
$C8F6..$CBF9:result:='S';
$CBFA..$CDD9:result:='T';
$CDDA..$CEF3:result:='W';
$CEF4..$D188:result:='X';
$D189..$D4D0:result:='Y';
$D4D1..$D7F9:result:='Z';
ELSE
RESULT:=char(32);
end;
end;
在change事件中输入代码:
procedure TForm1.Edit1Change(Sender: TObject);
var
i:integer;
hz:string;
begin
edit2.Text:='';
for i:=1 to length(edit1.text) div 2 do
begin
hz:=copy(edit1.Text,i*2-1,2);
edit2.Text:=edit2.Text+getpy(hz);
end;
end; 

Answer 1

这种函数网上多的是，就没必要花费心思研究了，给你个参考吧
//函数
function GetPYIndexChar(str: string): string;
var
  hzchar: string;
  n,j: integer;
begin
  for n := 0 to (length(str) div 2)-1  do
  begin                            //产生助记码
    j := 2*n+1;
    //hzchar := copy(str,j,2);
    hzchar := copy(str,j,2);
    Case Word(hzchar[1]) shl 8 + word(hzchar[2]) of
      $B0A1..$B0C4: result := result+'A';
      $B0C5..$B2C0: result := result+'B';
      $B2C1..$B4ED: result := result+'C';
      $B4EE..$B6E9: result := result+'D';
      $B6EA..$B7A1: result := result+'E';
      $B7A2..$B8C0: result := result+'F';
      $B8C1..$B9FD: result := result+'G';
      $B9FE..$BBF6: result := result+'H';
      $BBF7..$BFA5: result := result+'J';
      $BFA6..$C0AB: result := result+'K';
      $C0AC..$C2E7: result := result+'L';
      $C2E8..$C4C2: result := result+'M';
      $C4C3..$C5B5: result := result+'N';
      $C5B6..$C5BD: result := result+'O';
      $C5BE..$C6D9: result := result+'P';
      $C6DA..$C8BA: result := result+'Q';
      $C8BB..$C8F5: result := result+'R';
      $C8F6..$CBF9: result := result+'S';
      $CBFA..$CDD9: result := result+'T';
      $CDDA..$CEF3: result := result+'W';
      $CEF4..$D1B8: result := result+'X';
      $D1B9..$D4D0: result := result+'Y';
      $D4D1..$D7F9: result := result+'Z';
    else
      result :=  result+char(0);
    end;
end;
end;
//调用
procedure TCreatePersonInfoForm.NameEditExit(Sender: TObject);
begin
  PhoneEdit.Text:=GetPYIndexChar(pchar(NameEdit.Text));
end;

Answer 2

输入字母，如何在edit2中显示了。