unit1.~pas

Findfile 利用递归算法查找文件的例子

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    LabelTotal: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Total:integer;
implementation

{$R *.DFM}

function IsValidDir(SearchRec:TSearchRec):integer;
begin
if (SearchRec.Attr <> 16) and  (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
Result:=0
else
if (SearchRec.Attr = 16) and  (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
Result:=1
else
Result:=2;

end;

Procedure SearchFile(mainpath:string;filename:string;foundresult:TStrings;var Num:integer);
var
i:integer;
Subdir1:TStrings;
searchRec:TsearchRec;
begin
if Trim(filename)<>'' then
begin
if (FindFirst(mainpath+Filename, faAnyFile, SearchRec)=0) then
 Begin
  repeat
    if IsValidDir(SearchRec)=0 then
      begin Inc(Num); foundresult.Add(mainpath+SearchRec.Name) end;
    application.ProcessMessages ;
  until (FindNext(SearchRec) <> 0);
 end;
FindClose(SearchRec);
//这是递归部分，查找各子目录。
Subdir1:=TStringList.Create;//字符串列表必须动态生成
if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then
begin
 repeat
  if IsValidDir(SearchRec)=1 then  Subdir1.Add(SearchRec.Name);
  application.ProcessMessages ;
 until (FindNext(SearchRec) <> 0);
end;
FindClose(SearchRec);
for i:=0 to Subdir1.Count-1 do
 Searchfile(mainpath+Subdir1.Strings[i]+'\',Filename,foundresult,Num);
//资源释放并返回结果。
Subdir1.Free;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
Begin
memo1.lines.Clear ; Total:=0;
SearchFile(Edit2.Text,Edit1.Text,memo1.lines, Total);
LabelTotal.Caption :=format('查找文件总数为：%d',[Total]);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var dir:string;
begin
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
 Begin
   if length(dir) > 3 then dir:=dir+'\';
   Edit2.Text := dir;
 end;
end;

end.