为什么这段过程只能找*.txt的文件

                            
procedure   TSrmForm.FindDialogFind(Sender:   TObject);   
  var  
      FoundAt,StartPos,ToEnd:integer;  
      SearchFlag:TSearchTypes;  
  begin  
      if   frMatchCase   in   FindDialog.Options   then  
          SearchFlag:=SearchFlag+[stMatchCase];  
      if   frWholeWord   in   FindDialog.Options   then  
          SearchFlag:=SearchFlag+[stWholeWord];  
      StartPos:=RichEdit.SelStart+RichEdit.SelLength;  
      ToEnd:=Length(RichEdit.Text)-StartPos;  
      FoundAt:=RichEdit.FindText(FindDialog.FindText,StartPos,ToEnd,  
                                                            SearchFlag);  
      if   FoundAt<>-1   then  
      begin  
          RichEdit.SetFocus;  
          RichEdit.SelStart:=FoundAt;  
          RichEdit.SelLength:=Length(FindDialog.FindText);  
      end  
      else  
      begin  
          MessageBox(Handle,csFindError,csAppName,MB_OK   or   MB_ICONWARNING);  
      end;  
  end;

查看回复