知识大全如何获取汉字拼音简码[1]

Posted 2022-07-21 知

篇首语：勤奋是你生命的密码，能译出你一部壮丽的史诗。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何获取汉字拼音简码[1]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi开发经验技巧宝典》定价￥　特价￥购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

在应用程序中使用汉字字段进行查询的时候为了查询简单方便快速经常在数据库中存放汉字的拼音简码（拼音简码也就是每个汉字的第一个拼音字母）通过拼音简码对数据进行查询这样操作可以避免每次查询都录入大量的汉字节省大量的时间本例是在录入汉字文本框中录入汉字在单击确定按钮时在显示拼音简码文本框中显示录入的汉字的拼音简码如图所示

//develop csai cn/delphi/images/ gif >

在应用程序中定义一个GetSpell函数参数是要获取拼音简码的字符串（单个字符或单个汉字）然后对这个字符串进行位运算把第一个字节向左移动位再加上第二个字节来获取这个字符串的编码通过字符串的编码返回第一个拼音字母主要代码如下 function TForm GetSpell(str: string): char; begin case WORD(str[ ]) shl + WORD(str[ ]) of $B A $B C : result := A ; $B C $B C : result := B ; $B C $B ED: result := C ; $B EE $B E : result := D ; $B EA $B A : result := E ; $B A $B C : result := F ; $B C $B FD: result := G ; $B FE $BBF : result := H ; $BBF $BFA : result := J ; $BFA $C AB: result := K ; $C AC $C E : result := L ; $C E $C C : result := M ; $C C $C B : result := N ; $C B $C BD: result := O ; $C BE $C D : result := P ; $C DA $C BA: result := Q ; $C BB $C F : result := R ; $C F $CBF : result := S ; $CBFA $CDD : result := T ; $CDDA $CEF : result := W ; $CEF $D : result := X ; $D B $D D : result := Y ; $D D $D F : result := Z ; else result := str[ ]; end; end;

cha138/Article/program/Delphi/201311/24830

知识大全 如何获取汉字拼音简码[1]

知识大全如何获取汉字拼音简码[1]