1 吖 A K 2 2 阿 A B 5 3 啊 A K 2 4 锕 A Q 3 5 嗄 A K 2 6 哎 A K 2 7 哀 A Y 4 8 唉 A K 2 9 埃 A F 1 10 挨 A R 1 11 锿 A Q 3 12 捱 A R 1 13 皑 A R 3 14 癌 A U 4 15 嗳 A K 2
获得常用字汉字拼音的首个拼音字母首码，例举；Function HZToPY(cSTR:String):String; Var i:integer; S:String; begin Result:=''; for I := 1 to Length(cSTR) do begin S:=Copy(cSTR,i,1); if Trim(Getpinyin_shoupinma(S))='' then Result:=Result+S else Result:=Result+Getpinyin_shoup
