得到某个汉字的拼音字母

function GetEn(CnString: string): string;
? function GetEnChar(cnchar: string): char;
? begin
??? case Word(cnchar[1]) shl 8 + Word(cnchar[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..$D1B8: result := 'x';
????? $D1B9..$D4D0: result := 'y';
????? $D4D1..$D7F9: result := 'z';
??? else
????? result := char(0);
??? end;
? end;
var
? i, len: integer;
begin
? CnString := StringReplace(CnString, ' ', '', [rfReplaceAll]);? //删除空格
? len := Length(CnString) - Length(WideString(CnString));??????? //汉字个数
? for i := 1 to len do
??? result := result + GetEnChar(copy(CnString, 2*i-1, 2));
end;
阅读更多
个人分类: Delphi7.0
想对作者说点什么? 我来说一句

提取汉字拼音

2008年05月26日 23KB 下载

js根据汉字获取拼音包

2017年11月13日 73KB 下载

如何取汉字的第一个拼音字母

2007年07月24日 21KB 下载

汉字转成拼音字母 C#.net

2009年11月17日 96KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭