昨夜看到一篇文章,可以用Delphi将汉字->拼音,可是将拼音转换成汉字又该如何操作哪?我的数据库:通讯录软件缺少用拼音查找功能.结果,搞到12点还是无果!唉!
中午找到输入拼音可以检索汉字,可是在数据库中怎样实现哪?2个小时,无果!
今天实现:
1.首先建立字库;
2.检索:先从数据库读出所要查询字段所有记录,将其放入控件ListBox,再按照拼音检索需要的数据.
实现是靠的迂回策略(读取数据库汉字->转换成拼音->依据拼音检索结果->实现数据库的拼音检索),没找到直接在数据库查询,然后显示结果的方法,希望高人指点一二。
下面附上Code:
1.字库Code:
{//汉字拼音码检索 对应的拼音字母}
function GetCharInd(zzchar:string):char;
begin
case WORD(zzchar[1]) shl 8+WORD(zzchar[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:=&#