Delphi汉字转拼音 获取首字母,简化版拼音反查单元,把汉字转换成全拼,然后取拼音的首字母,并转换成大写,修改于 Trueway(TM) LiQunwei,去掉了外挂字典,简化代码。iMode 二进制功能位说明: 1: 0 - 只取各个汉字声母的第一个字母; 1 - 全取 2: 0 - 遇到不能翻译的字符不翻译; 1 - 翻译成 '?' (本选项目针对全角字符) 3: 0 - 生成的串不包括非数字, 字母的其他字符; 1 - 包括(控制全角的要输出非数字, 字母字符的; 半角的非数字, 字母字符)