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;
...
2022-02-08 14:05:15
96KB
1