function GetPYIndexChar( hzchar:string):Char;
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
$B0A1..$B0C4 : result := 'A';
$B0C5..$B2C0 : result := 'B';
$B2C1..$B4ED : result := 'C';
$B4EE..$B6E9 : result := 'D';
$B6EA..$B7A1 : result := 'E';
$B7A2..$B8C0 : result := 'F';
$B8C1..$B9FD : result := 'G';
$B9FE..$BBF6 : result := 'H';
$BBF7..$BFA5 : result := 'J';
$BFA6..$C0AB : result := 'K';
$C0AC..$C2E7 : result := 'L';
$C2E8..$C4C2 : result := 'M';
$C4C3..$C5B5 : result := 'N';
$C5B6..$C5BD : result := 'O';
$C5BE..$C6D9 : result := 'P';
$C6DA..$C8BA : result := 'Q';
$C8BB..$C8F5 : result := 'R';
$C8F6..$CBF9 : result := 'S';
$CBFA..$CDD9 : result := 'T';
$CDDA..$CEF3 : result := 'W';
$CEF4..$D188 : result := 'X';
$D1B9..$D4D0 : result := 'Y';
$D4D1..$D7F9 : result := 'Z';
else
result := char(0);
end;
end;
分享到:
相关推荐
delphi7环境正常编译运行,可获取多个汉字首字母,准确
delphi汉字转拼音、汉字取拼音首字母 共可查20876个不同汉字的拼音或拼音首字母。 查询速度极快,体积小巧只有30K,且完全独立无需任何输入法支持! 支持两种方式:1、汉字转拼音首字母 2、汉字转完整拼音 源码
Delphi汉字转拼音 获取首字母,简化版拼音反查单元,把汉字转换成全拼,然后取拼音的首字母,并转换成大写,修改于 Trueway(TM) LiQunwei,去掉了外挂字典,简化代码。iMode 二进制功能位说明: 1: 0 - 只取各个...
DELPHI 获取中文的拼音首字母的函数 直接拷贝过去就可以用
delphi获取汉字拼音首字母,对中间含有字母、数字同样适用
Delphi输出汉字拼音字符串首字母源代码..rar
软件研发人员
能都提取汉字首字母或者全拼的一个程序,对大家应该很有用哦 哈哈
支持delphi全版本 支持多个汉字一起转
汉字转拼音声母首字母 dll delphi
delphi2010+win10 64位系统下测试,获取汉字拼音首字母没问题。可以直接在项目中使用。
delphi 源代码 软件 汉字拼音首字母 将汉字转为拼音首字母,获取取汉字拼音首字母,delphi 源代码 软件 汉字拼音首字母
Unicode汉字拼音全拼、首字母Delphi查询函数(推荐使用) { iMode 二进制功能位说明 X X X X X X X X X X X X X X X X 3 2 1 1: 0 - 只取各个汉字声母的第一个字母; 1 - 全取 2: 0 - 遇到不能翻译的字符不...
虽为delphi源码,但数据对其它一样通过,可以借鉴。
汉字转化成拼音首字母函数,完整代码,支持 delphi2010 xe5 xe3 xe2
获取汉字首字母,也可以获取汉字全拼,且完全源码 获取汉字首字母,也可以获取汉字全拼,且完全源码
前辈的汉字转拼音首字母适合于delphi高版本,用笨办法成delphi7可用,效率不算差,这个最大的好处,遇到任何生僻字,都可以通过调整识别解决,已经解决了一大部分生僻字了。
可以把中文转换成拼音,支持首字母和全拼,比较简单,实用就行,支持中英文字符混排等。字库为unicode编码,可以维护,D7下通过。
DELPHI汉字转拼音首字母 ,适用 DELPHI 各版本,本人从xe3-xe10均已测过可用。感谢支持,非DELPHI用户请勿下载,谢谢
参考很多转首字母的代码都不行,干脆自己参考代码写了一个,各版本DELPHI含 xe3均可用,如果是其他版本,只需打开代码后复制函数走即可,超级简单, 支持生僻字,更可以自己维护,把现在还没支持而自己又需要的生僻...