高级查找

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TfrMain  =  class(TForm)
    pnl1: TPanel;
    mmo1: TMemo;
    pnl2: TPanel;
    lbl1: TLabel;
    ed1: TEdit;
    ed2: TEdit;
    btn1: TButton;
    chk1: TCheckBox;
    lbl2: TLabel;
    lblNumberFound: TLabel;
    ed3: TEdit;
    lbl3: TLabel;
     procedure  btn1Click(Sender: TObject);
  private
     procedure  FileSearch( const  PathName, FileName : string;  const  InDir : boolean);
  public
     {  Public declarations  }
   end ;

var
  frMain: TfrMain;

implementation
{ $R *.DFM }
uses uFileInfo;


procedure  TfrMain.FileSearch( const  PathName, FileName : string;  const  InDir : boolean);
var  Rec  : TSearchRec;
    Path : string;
    sl:   TStringList;
    ii: integer; 

begin
  Path : =  IncludeTrailingBackslash(PathName);

   if  FindFirst(Path  +  FileName, faAnyFile  -  faDirectory, Rec)  =   0   then
   try
      repeat
      begin
        // 判断是否包含字符串
       sl : =  TStringList.Create;
       sl.LoadFromFile(Path  +  Rec.Name);
         
        for  ii: = 0   to  sl.Count - 1   do
        begin
           if  Pos(trim(ed3.text), sl.Strings[ii])  >   0   then
           begin
            mmo1.Lines.Add(Path  +  Rec.Name);
             // mmo1.Lines.Add(Copy(sl.Strings[ii], Pos(trim(ed3.text), sl.Strings[ii]),  5 ));
            BREAK;
           end ;
        end ;

      end ;
     
      until  FindNext(Rec)  <>   0 ;
   finally
     FindClose(Rec);
    end ;

  If  not  InDir  then  Exit;

   if  FindFirst(Path  +   ' *.* ' , faDirectory, Rec)  =   0   then
   try
      repeat
       if  ((Rec.Attr  and  faDirectory)  <>   0 )   and  (Rec.Name <> ' . ' )  and  (Rec.Name <> ' .. ' )  then
       FileSearch(Path  +  Rec.Name, FileName, True);
       
      until  FindNext(Rec)  <>   0 ;
   finally
     FindClose(Rec);
    end ;
end ;

procedure  TfrMain.btn1Click(Sender: TObject);
begin
  mmo1.Clear;

  lblNumberFound.Caption: = Inttostr(mmo1.lines.Count)  +   '  files found. ' ;
  
  FileSearch(Ed1.Text, Ed2.Text, Chk1.State  in  [cbChecked]);

  lblNumberFound.Caption: = Inttostr(mmo1.lines.Count)  +   '  files found. ' ;

  SHOWMESSAGE( ' OK ' );
end ;

end .

转载于:https://www.cnblogs.com/safezone/articles/1260891.html