Notice: 程序思想来源于 UCDOS 7.0 拼音输入法 汉字发音从中文版的 Windows 98 的全拼输入法词库取 支持 GBK 汉字 处理多音字的发音为最常用发音 如 '着' 字有 'Zhe' 'Zhao' 'Zhuo' 三种发音, 输出 'Zhe' 请正确设置 iMode 参数 在 Delphi 3.0 或更高的版本中使用 调用示例: ... First; while not EOF do begin Edit; FieldByName(PyFieldName).AsString := String(MakePyCode(FieldByName(ChnFieldName).AsString, 1, 6); Next; end; ...