RichEdit中实现查找功能

2016-02-19 18:36 7 1 收藏

想不想get新技能酷炫一下,今天图老师小编就跟大家分享个简单的RichEdit中实现查找功能教程,一起来看看吧!超容易上手~

【 tulaoshi.com - 编程语言 】

RichEdit有一个FindText函数,极大方便了我们为RichEdit编制查找功能。下面的片断取自于Delphi帮助中的范例。
  
   C++ Builder
  
   请参照Delphi的例子
  
   Delphi
  
   procedure TMainForm.FindDialogFind(Sender: TObject);
  
   !-- frame contents -- !-- /frame contents -- var
  
   FoundAt: LongInt;
  
   StartPos, ToEnd: integer;
  
   SearchFlag: TSearchTypes;
  
   begin
  
   if frMatchCase in FindDialog.Options then
  
   SearchFlag:=[stMatchCase];
  
   if frWholeWord in FindDialog.Options then
  
   SearchFlag:=SearchFlag+[stWholeWord];
  
   with RichEdit do
  
   begin
  
   StartPos:=SelStart+SelLength;
  
   ToEnd:=Length(Text) - StartPos;
  
   FoundAt:=FindText(FindDialog.FindText, StartPos, ToEnd, [stMatchCase]);
  
   if FoundAt<>-1 then
  
   begin
  
   SetFocus;
  
   SelStart:=FoundAt;
  
   SelLength:=Length(FindDialog.FindText);
  
   end
  
   else
  
   begin
  
   SelLength:=0;
  
   SelStart:=StartPos;
  
   Application.MessageBox(PChar(找不到+FindDialog.FindText),查找失败,0);
  
   end;
  
   end;
  
   end;

来源:http://www.tulaoshi.com/n/20160219/1618275.html

延伸阅读
   Copy和Paste加速按钮,对于使用Windows下编辑器的人来说,恐怕都是非常熟悉而且不可缺少的。Delphi中的有些控件,如:TDBEdit、TDBImage、TDBMemo、TEdit等,具有CutToClipboard、CopyToClipboard和PasteFromClipboard方法,在这些控件上,利用这几个方法,只要通过简单的编程,就可以实现上述加速按钮。但TDBGrid控件却不提供上述...
标签: 办公软件
作为国产软件的骄傲,WPS在某些方面确有其独到之处,比如,可以给文字勾边,为表格添加阴影效果等,但笔者发现,这些功能其实在WORD中也能完成,不信?且听我一一道来。 1、为文字勾边 勾边字常用于设置报纸、杂志的标题,是一种比较实用的特效字。在WPS的“文字-修饰”菜单中...
标签: 电脑入门
查找功能,大家一定都用过,但是,对于一些比较复杂的替换要求,你能用查找从容应对吗?举一个例子,一位网友从网上下载了一份化学试卷,其中的一些分子式没有应用正确的格式,如硫酸钠的分子式写成了Na2SO4,现在要把试卷中所有的分子式中的数字改成下标,应该怎么做呢?要知道,如果简单地选中所有数字,再设成下标的话,非分子式中的数字也会...
标签: autocad教程
Autotulaoshi.comCAD的编辑功能十分强大,有很多功能等待着你去开发。充分利用AutoCAD的现有命令,便能完成你预想不到的事情。现在让我们按照图1的尺寸要求进行一次“倾斜”的操作。 在AutoCAD中,没有实现这个功能的命令。要想“倾斜”,可采用变通的方法:通过块的不等比例缩放来实现这个功能。 思路: 1)先将要倾斜的对...
如何使用查找iPhone功能?   问:如何使用查找iPhone功能? 答:查找我的iPhone是iCloud云服务的其中一项,可以帮助用户快速定位丢失的手机。使用该功能之前,必须满足几个条件:1)手机是丢失而非被盗;2)能够www.tulaoshi.com正常连接网络;3)设置功能下的iCloud菜单中已经开启了查找我的iPhone功能。如果以上三个条件均能满足...

经验教程

757

收藏

71
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部