Unicode汉字拼音全拼、首字母Delphi查询函数(推荐使用)

Delphi编程获取汉字拼音(简拼、全拼皆可)单元 Unicode汉字拼音全拼、首字母Delphi查询函数(推荐使用) { iMode 二进制功能位说明 X X X X X X X X X X X X X X X X 3 2 1 1: 0 - 只取各个汉字声母的第一个字母; 1 - 全取 2: 0 - 遇到不能翻译的字符不翻译; 1 - 翻译成 '?' (本选项目针对全角字符) 3: 0 - 生成的串不包括非数字, 字母的其他字符; 1 - 包括 (控制全角的要输出非数字, 字母字符的; 半角的非数字, 字母字符) 调用方法 Edit2.Text:=MakeSpellCode(Edit1.Text, 1, 255); //拼音全 Edit3.Text:=MakeSpellCode(Edit1.Text, 2, 255); //拼音简写，去除空格 Edit4.Text:=MakeSpellCode(Edit1.Text, 4, 255); //拼音简写 }