上传者: 43456234
|
上传时间: 2022-02-08 14:05:15
|
文件大小: 96KB
|
文件类型: PAS
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;
...