RichEdit中实现查找功能[组图]

　　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;