代碼function getPY(hzchar:string):char; begincase 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';ELSERESULT:=char(32);end; end;procedure TForm1.Edit1Change(Sender: TObject); vari:integer;hz:string; beginedit2.Text:='';for i:=1 to length(edit1.text) div 2 dobeginhz:=copy(edit1.Text,i*2-1,2);edit2.Text:=edit2.Text+getpy(hz);end; end;

轉載于:https://www.cnblogs.com/xiaobao/archive/2010/10/21/1857703.html

總結

以上是生活随笔為你收集整理的Delphi将输入汉字自动产生拼音简码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。