delphi汉字转拼音、汉字取拼音首字母
共可查20876个不同汉字的拼音或拼音首字母。
查询速度极快，体积小巧只有30K，且完全独立无需任何输入法支持！
支持两种方式：1、汉字转拼音首字母 2、汉字转完整拼音
源码
2022-03-16 21:13:48
193KB
1
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