Delphi将输入汉字自动产生拼音简码

来源：互联网发布：成都网络推广招聘编辑：程序博客网时间：2024/05/21 22:26

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;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;