在RichEdit中搜索

procedure TFileViewForm.ViewFindDialogFind(Sender: TObject);
var
  FoundAt: integer;
  SearchType: TSearchTypes;
begin
with FileViewRE do
  begin
  if frWholeWord in ViewFindDialog.Options then
    SearchType:=[stWholeWord]
  else
    SearchType:=[];
  if SelLength > 0 then
    SearchStart:=SelStart + 1
  else
    SearchStart:=SelStart;
  Screen.Cursor:=crHourGlass;
  Application.ProcessMessages;
  FoundAt:=FindText(ViewFindDialog.FindText, SearchStart, Length(Text),
             SearchType);
  Screen.Cursor:=crDefault;
  Application.ProcessMessages;
  if FoundAt < 1 then
    MessageDlg('Error! Unable to find "'+ ViewFindDialog.FindText +
               '"', mtError, [mbOK], 0)
  else
    begin
    SetFocus;
    SelStart:=FoundAt;
    SelLength:=Length(ViewFindDialog.FindText);
    end;
  end;
end;