在我們編寫(xiě)程序的時(shí)候，經(jīng)常會(huì)用到在某個(gè)目錄和子目錄中搜索文件這一過(guò)程，但Delphi并沒(méi)有為我們提供這一功能函數(shù)，它只為我們提供了一些只能在當(dāng)前目錄查找文件的函數(shù)，不過(guò)現(xiàn)在在網(wǎng)上也能找到一些可以實(shí)現(xiàn)此功能的控件，例如FileSearch等等。那么我們要自己編寫(xiě)這個(gè)功能，又應(yīng)該怎么樣做呢？其實(shí)本功能最難實(shí)現(xiàn)的部分就是要編寫(xiě)能逐層訪問(wèn)目錄的算法。經(jīng)本人研究，終于得出一個(gè)實(shí)現(xiàn)它的方法，那就是利用遞歸調(diào)用算法來(lái)實(shí)現(xiàn)，現(xiàn)將其實(shí)現(xiàn)過(guò)程介紹如下：
     1、窗體設(shè)計(jì)
         新建一個(gè)工程，在Form1中添加DriveComboBox1、Edit1、Listbox1、Button1、DirectoryOutline1、Label1，把Edit1的Text屬性改為*.*，Button1的Caption屬性改為"查找"，各個(gè)控件布局如下圖：
     
     
     2、程序清單
     unit main;
     
     interface
     
     uses
       Windows, Messages, SysUtils, Classes, Graphics,
       Controls, Forms, Dialogs,stdctrls,filectrl,grids,outline,diroutln;
     
     type
       TForm1 = class(TForm)
         DriveComboBox1: TDriveComboBox;
         Edit1: TEdit;
         Listbox1: TListBox;
         Button1: TButton;
         Label1: TLabel;
         DirectoryOutline1: TDirectoryOutline;
         procedure Button1Click(Sender: TObject);
         procedure DriveComboBox1Change(Sender: TObject);
       private
         { Private declarations }
       ffilename:string;
       function getdirectoryname(dir:string):string;
       procedure findfiles(apath:string);
       public
         { Public declarations }
       end;
     
     var
       Form1: TForm1;
       t:integer;
     implementation
     
     {$R *.DFM}
     function tForm1.getdirectoryname(dir:string):string;
     {對(duì)文件名進(jìn)行轉(zhuǎn)換，使之以反斜杠結(jié)尾}
       begin
         if dir[length(dir)]<>'' then
           result:=dir+''
         else
           result:=dir;
       end;
     
     
     procedure TForm1.findfiles(apath: string);
     {通過(guò)遞歸調(diào)用，可以在當(dāng)前目錄和子目錄下查找指定格式的文件}
     var
       fsearchrec,dsearchrec:tsearchrec;
       findresult:integer;
     function isdirnotation(adirname:string):boolean;
        begin
         result:=(adirname='.') or (adirname='..');
        end;
     begin
     
     apath:=getdirectoryname(apath); //獲取一個(gè)有效的目錄名稱
     
     {查找一個(gè)匹配的文件}
     findresult:=findfirst(apath+ffilename,faanyfile+fahidden+fasysfile+fareadonly,fsearchrec);
     try
     {繼續(xù)查找匹配的文件}
     while findresult=0 do
       begin
        Listbox1.Items.Add(lowercase(apath+fsearchrec.Name));
        t:=t+1;
        label1.Caption:=inttostr(t);
        findresult:=findnext(fsearchrec);
       end;
     
     {在當(dāng)前目錄的子目錄中進(jìn)行查找}
     findresult:=findfirst(apath+'*.*',fadirectory,dsearchrec);
     while findresult=0 do
       begin
         if ((dsearchrec.Attr and fadirectory)=fadirectory) and not
           isdirnotation(dsearchrec.Name) then
           findfiles(apath+dsearchrec.Name);//在此處是遞歸調(diào)用
         findresult:=findnext(dsearchrec);
       end;
     
     finally
     findclose(fsearchrec);
     end;
     end;
     
     procedure TForm1.Button1Click(Sender: TObject);
     {調(diào)用FindFiles()函數(shù)，用來(lái)搜索子目錄}
     begin
     t:=0;
     screen.Cursor:=crhourglass;
     try
       Listbox1.Items.Clear;
       ffilename:=Edit1.Text;
       findfiles(DirectoryOutline1.Directory);
     finally
     screen.Cursor:=crdefault;
     end;
     end;
     
     procedure TForm1.DriveComboBox1Change(Sender: TObject);
     begin
     DirectoryOutline1.Drive:=DriveComboBox1.Drive;
     end;
     
     end.
     
     本程序在Win2000/Delphi6中運(yùn)行通過(guò)。
     (廣州 葉海河)