如何获取汉字拼音简码[1]

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

http://developcsaicn/delphi/images/gif>

在应用程序中定义一个GetSpell函数参数是要获取拼音简码的字符串（单个字符或单个汉字）然后对这个字符串进行位运算把第一个字节向左移动位再加上第二个字节来获取这个字符串的编码通过字符串的编码返回第一个拼音字母主要代码如下

function TFormGetSpell(str: string): char;

begin

case WORD(str[]) shl + WORD(str[]) of

$BA$BC: result := A;

$BC$BC: result := B;

$BC$BED: result := C;

$BEE$BE: result := D;

$BEA$BA: result := E;

$BA$BC: result := F;

$BC$BFD: result := G;

$BFE$BBF: result := H;

$BBF$BFA: result := J;

$BFA$CAB: result := K;

$CAC$CE: result := L;

$CE$CC: result := M;

$CC$CB: result := N;

$CB$CBD: result := O;

$CBE$CD: result := P;

$CDA$CBA: result := Q;

$CBB$CF: result := R;

$CF$CBF: result := S;

$CBFA$CDD: result := T;

$CDDA$CEF: result := W;

$CEF$D: result := X;

$DB$DD: result := Y;

$DD$DF: result := Z;

else

result := str[];

end;

end;

right>[] [http://developcsaicn/delphi/htm>]

上一篇：如何获取汉字拼音简码[2]

下一篇：EXE工程和OCX工程的转化