RichEdit有一个FindText函数,极大方便了我们为RichEdit编制查找功能。下面的片断取自于Delphi帮助中的范例。 C++ Builder 请参照Delphi的例子 Delphi procedure TMainForm.FindDialogFind(Sender: TObject); 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;
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18