在我们编写程序的时候，经常会用到在某个目录和子目录中搜索文件这一过程，但Delphi并没有为我们提供这一功能函数，它只为我们提供了一些只能在当前目录查找文件的函数，不过现在在网上也能找到一些可以实现此功能的控件，例如FileSearch等等。那么我们要自己编写这个功能，又应该怎么样做呢？其实本功能最难实现的部分就是要编写能逐层访问目录的算法。经本人研究，终于得出一个实现它的方法，那就是利用递归调用算法来实现，现将其实现过程介绍如下：
     1、窗体设计
         新建一个工程，在Form1中添加DriveComboBox1、Edit1、Listbox1、Button1、DirectoryOutline1、Label1，把Edit1的Text属性改为*.*，Button1的Caption属性改为"查找"，各个控件布局如下图：
     
     
     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;
     {对文件名进行转换，使之以反斜杠结尾}
       begin
&