说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中用拼音首字符序列来实现检索功能。

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中用拼音首字符序列来实现检索功能。

在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息,或在单位的应用程序中查询客户档案或业务资料,这个过程中往往需要输入大量的汉字信息,对于熟悉计算机的人这已经是一件头疼的事,那些不太熟悉计算机或根本不懂汉字输入的用户简直就望而生畏。作为对数据检索技术的一种新的尝试,作者探索使用汉字拼音的首字符序列作为检索关键字,这样,用户不必使用汉字,只须简单地键入要查询信息的每个汉字的拼音首字符即可。比如你想查找关键字“中国人民银行”,你只需要输入“zgrmyh”。作者希望通过下面的例子,为广大计算机同行起一个抛砖引玉的作用,让我们开发的程序更加便捷、好用。

---- 原理很简单,找出汉字表中拼音首字符分别为“A”至“Z”的汉字内码范围,这样,对于要检索的汉字只需要检查它的内码位于哪一个首字符的范围内,就可以判断出它的拼音首字符。

---- 程序更简单,包括3个控件:一个列表存放着所有待检索的信息;一个列表用于存放检索后的信息;一个编辑框用于输入检索关键字(即拼音首字符序列)。详细如下:

---- 1.进入Delphi创建一个新工程:Project1

---- 2.在Form1上创建以下控件并填写属性:

控件类型 属性名称 属性值

Edit Name Search

ListBox Name SourceList

Items 输入一些字符串,如姓名等,用于提供检索数据

ListBox Name ResultList

3.键入以下两个函数

// 获取指定汉字的拼音索引字母,如:“汉”的索引字母是“H”

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;

// 在指定的字符串列表SourceStrs中检索符合拼音索引字符串PYIndexStr的所有字符串,并返回。

function SearchByPYIndexStr( SourceStrs:TStrings; PYIndexStr:string):string;

label NotFound;

var

i

j :integer;

hzchar :string;

begin

for i:=0 to SourceStrs.Count-1 do

begin

for j:=1 to Length(PYIndexStr) do

begin

hzchar:=SourceStrs[i][2*j-1] + SourceStrs[i][2*j];

if (PYIndexStr[j]<>'?') and

(UpperCase(PYIndexStr[j]) <> GetPYIndexChar(hzchar)) then

goto NotFound;

end;

if result='' then

result := SourceStrs[i]

else

result := result + Char(13) + SourceStrs[i];

NotFound:

end;

end;

4.增加编辑框Search的OnChange事件:

procedure TForm1.SearchChange(Sender: TObject);

var

ResultStr:string;

begin

ResultStr:='';

ResultList.Items.Text := SearchByPYIndexStr(Sourcelist.Items

Search.Text);

end;

---- 5.编译运行后,在编辑框Search中输入要查询字符串的拼音首字符序列,检索结果列表ResultList就会列出检索到的信息,检索中还支持“?”通配符,对于难以确定的的文字使用“?”替代位置,可以实现更复杂的检索。

---- 本程序在Delphi4.0中编译运行通过。

CMDN Club 26期:数字渠道营销主题沙龙 暴强:用iOS设备控制的HTML5“小蜜蜂”游戏 Leap Motion:500元体感,精确到0.01毫米 大事件:三大运营商将发布融合计费SDK 再培养一个扎克伯克:六款适合儿童上手编程的App 首届中国软件工程标准高峰论坛:软件开发的新机遇与挑战 Verizon研究显示:中国成为2012年度网络间谍攻击的主要来源 Clang宣布全面支持C++11标准 北大陈钟:SEMAT—中国软件工程发展的新机遇 超华尔街预期:苹果第二财季营收为436亿美元 跨平台游戏引擎Spaceport已被Facebook收购 文科生开发GPU数据库 性能超传统数据库70倍 开发者赚了90亿:从苹果Q2财报,看iOS生态 备受开发者青睐的13款热门开源项目 Netflix赌赢《纸牌屋》背后的秘密武器:大数据分析 为什么:Google Glass只能运行Web应用? 对话Rackspace高级副总裁Jim Curry:我们没有&quot;辜负&quot;营销炒作 7个大数据流言——避免错误的Hadoop和云分析决策 Facebook vs. Google:撇开搜索,数据中心产业上的又一竞技 苹果将于6月10日召开WWDC 新版OS X和iOS或将面世 传Amazon今年秋季发布电视机顶盒设备 够快:不会3种以上语言的程序员不是好程序员 Cloud Foundry、Greenplum获通用电气1亿美元注资 微软推超强Android应用Switch to Windows Phone Unity CEO宣布:放弃支持Flash平台 为交房租做App:我第一年赚了7万美金 iOS越狱大神Comex加盟Google 曾错过苹果Offer 维基百科正式从MySQL迁移到MariaDB数据库 JavaScript MVC框架PK:Angular、Backbone、CanJS与Ember 大数据推广引领精准推广浪潮 ThoughtWorks负责人曾学海:数字渠道细分带来的架构演进 谁能告诉我学VC的步骤和教材啊,还会加分啊 如何将一个可以滚动的窗口的全部内容转换为BMP保存起来(如:IE)?(提供线索就有分)欢迎参与成果供享!!! 请教关于VsPrint Oracle8i Enterprise Manager Release 2.1 相当于ORACLE8.1.几啊? 使用ListView如何操作数据 ★★★简单问题送100分★★★:如何打印框架容器里的的全部内容,包括mschart图表,label,combox等? 我的DW里加入FLASH特效时为什么中文会变成乱码?我给分的............ 我感到天昏地暗、日月无光、前途渺茫、无心睡眠、精神恍惚、双目痴呆相恋8年准备结婚的女友突然和别人结婚了!我受不了了!我快疯了! 请教有关IE5带的ActiveX控件Dhtmled.ocx的98下安装问题 程序员与高级程序员到底那个好过 关于 delphi的一点东东 access一个日期时间字段是短格式的,用什么SQL语句改成长格式的? 怎样才能在主页中显示自己的qq是否在线?????? 有没有平面按钮控件 Interdev6.0 IDE 环境下无法使用MSDN access一个日期时间字段是短格式的,用什么SQL语句改成长格式的?? 大家来帮帮我想想?应该怎么样来删除呢!!!! 各位用VB.net的兄弟,请问你们使得是 Beta1 还是 Beta2 ? 迷周星弛的请来签名啊! 如何操纵RichTextEdit控件??? 我得到GIF图像的这一点的值,怎样得到它的正确的RGB值? 我想请问在CHTML(compact html)中如何对页面进行刷新。 各位老大,你们是如何找到工作的? 在VB.net中,如何实现VB6中的 set A=createobject("XXXX.XXXX") 诸位大虾救命,如何在EDIT控件中判断DBCS字符 !!求救!!对时!!! 在VC中使用Crystal report 8的问题 如何编写c程序自动对GIF图片设置大小 请教:鼠标在windows桌面上按键是否会引发某个事件? 查看DLL的输出函数 menu的问题 web的组件由什么来编写? 嵌入式数据窗口,怎样可以动态往里插数据窗口??? 在DELPHI中如何调用NETBIOS的API函数 AddNew 怎么用?- 怎么办那,啊? 问题标题前的绿色的对号是什么意思?是不是表示问题已经解决? 怎么学VC啊,菜鸟的菜菜的问题啊。 关于打印比较 提取汉字的拼音 四级挂了,给分,气死了 难题时时有,把它问诸位,不知哪位高手,今日肯帮俺------解决送个人照片(不知各位肯要否?) 刚考完英语四级,来这里发泄一下。同时送上300分! PHP和JAVA如何通讯? 请问哪里有 soft-ice for 2k 如何将字符串的首尾空格去掉??? 1分钟求解:与HEX()对应的把16进制转换成10进制的函数是什么? 怎样判断某个控件是button、edit还是combox、listctrl......? VB.NET(VS.NET)/Beta2正式版下载地址与安装方法 有人用VsPrint吗? delphi、vc、c++ builder三者,哪一种是你的最终选择,why? 40分之7等于x加20分之70怎么计算?打错了 是40/7=X+20/30 (2x-3)(2x-3)=x²-6x+9 解一元二次方程 1x(1+2)分之2+(1+2)x(1+2+3)分之3...1+2+.9)x(1+2+.10)的10次方 解方程:4.8+2.1x=15.3, 2x²-2x-3=0 解一元二次方程急! 2分之1X :3=(X+1):9 求X 解方程:20%X-5分之1=5分之4 4分之1X+3分之1=1又6分之1 1.(x+2)²-5=0 2.2x²-x-3=0 3.x²-6x-5=0 4.(x+3)²=2x+6 运用一元二次方程的方法解 (170-x)*3/1-4/1x=10怎么解 解方程:5分之2+5分之1X=2 已知x是一元二次方程x的平方+3x-1=0的实术根,那么代数式 (x-3/3x平方-6x)/ (x+2-5\x-2)的值是多少?已知x是一元二次方程x的平方+3x-1=0的实术根,那么代数式(x-3/3x平方-6x)/ (x+2-5\x-2)的值是多少?《不好 1-2/1x(1+2)-3/(1+2)x(1+2+3)-4/(1+2+3)x(1+2+3+4)-……-10/(1+2+3+4+5+6+7+8+9)x(1+2+3+4+5+6+7+8+9+10) 解方程.2分之1X+3分之1X=20分之1 X分之0.5=0.8分之3 X:3.25=5分之1:4分之5 已知x是一元二次方程x的平方减二x减八的根,求代数式3x的平方-6x分之x-3÷(x+2- x-2分之5的)的指值 25分之6比X=50,解比例 还有4分之1X+5分之1×45=12 1x=(1-20%)乘(x+6)解方程 解方程14x+x=2520 X+5分之1X=25分之12 1、方程-0.1x=1的解是________.2、方程3(y+2)=y的解是________.3、方程2x+3=4x-3的解是________. 14x-x=169怎样列方程 x-6分之1x等于5 x+4分之3等于21 (1+3分之1)x等于12求过乘,和怎么算出来的, 1).-2X=3,2).x+2=-1,3)4X-3=9,4)4-2/1X=5,给这几题解方程~.. (1)化简求值:2x^2+14x+24分之x^2+16+8x,其中x=-6当x=3,y=-2,求x^2-(y-1)^2分之x^2-y^2乘以x^2+2yx+y^2分之(x-y)^2-1除以x^2+xy-x分之x^2-xy的值、怎么做, x+4分之1X=1.5 6分之5/[1-(4分之3+12分之1)]答对我采纳额外加30悬赏 1又3分之1x+8×2分之1=16(解方程) 解方程 x(x+1)(x²-2x-4)=0 x³-2x+1=0 x的4次方+8x³+14x²+8x+1=0 x+4/1x=5怎么解方程 m为何值时,一元二次方程m(x²-2x+1)-2x²+x=0(1)有两个不相等的实数根?(2)有两个相等的实数根?(3)没有实数根? 解方程5/6*42-14x=7 解方程:(22-X)*4分之1-5分之1X=1 已知一元二次方程x²-2x m=0若方程的两个实数根为x1、x2,且x1+3x2=3,求m的值 解方程解方程10x/2+12=14x/2 x-3分之1x=0.36解方程 已知关于x的一元二次方程x²-2x-m=0有实数根 解方程:4x+10=2x-5 解方程2分之1x+25%=10 急,解一元二次方程:-x²/4+5/2x=0 解方程(10+2x)(76-4x)=1080 解方程 3分之1x+4分之1x=3分之2 x-0.75x-0.25=1 0.8x-14.7=1.3 1.2÷4分之x=5 3.6x+5.3=16.1 一元二次方程x²+2x=5的根的情况下? 解方程13x—4十2x=4x—3 当x为何值时 (5x+1)/2-3x比式子(7x-5)/3的值大5? 2x²-2x=5 (x+3)²=(1-2x)²两个一元二次方程的解, (4x+2x)/7=3解方程 解方程x(14-x)x1/2=24 x²+2x-5/4=0 一元二次方程 解方程:1/4x=-1/2x+3快,急 1x+3.6=11.2怎么解方程? 解几个方程,①x(x+1)(x+2)(x+3)=3 ②x^4+8x^3+14x^+8x+1=0 ③x(x+1)(x^2-2x-4)=0 解方程,3/4X+1/2X=9/4 2分之1x=4分之3解方程 x^2+2x+3一元二次方程的值为0则3x^2+6x-1值为 26-3x=5 怎么解方程?26-3x=5怎么解方程? 解方程:5/8X-21/8=5/4 当x等于多少时,√x+√6与√x-√6互为倒数 已知m,n是一元二次方程x²-3x+1=0的两根,则代数式2m²+4n²-6n+2000的A2014B2013C2011D2012已知m,n是一元二次方程x²-3x+1=0的两根,则代数式2m²+4n²-6n+2000的值A2014B2013C2011D2012 用配方法解方程:(3x+5)(3x-5)+6x=-26 0.75加25%X等于8分之7, 若一元二次方程2x²-6x+3=0的两根是α,β,求(α-β)²的值 1x(1+2)分之2+(1+2)x(1+2+3)分之3...1+2+...9)x(1+2+...10)的10次大大
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn