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

最新推荐文章于 2026-01-17 20:23:36 发布

转载最新推荐文章于 2026-01-17 20:23:36 发布 · 1.4k 阅读

标签

#delphi #c #integer #function #string

#div

收录于

本文介绍了一段Pascal代码，该代码用于将输入的汉字转换为其对应的汉语拼音首字母。通过定义一个函数getPY，针对每个汉字的Unicode值进行区间判断来实现转换。此外，还提供了一个Edit1Change事件处理程序，演示了如何使用这个函数处理文本框内的输入，以连续显示汉字的拼音首字母。

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;