首拼汉字码

获得常用字汉字拼音的首个拼音字母首码，例举；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_shoupinma(S); end; end;