通过递归调用来搜索文件

  在我们编写程序的时候，经常会在目录和子目录中搜索文件，但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
    if dir[length(dir)]<>'\' then
      result:=dir+'\'
    else
      result:=dir;
  end;
procedure TForm1.findfiles(apath: string);
{通过递归调用，可以在当前目录和子目录下查找指定格式的文件}
var
  fsearchrec,dsearchrec:tsearchrec;
  findresult:integer;
function isdirnotation(adirname:string):boolean;
   begin
    result:=(adirname='.') or (adirname='..');
   end;
begin
apath:=getdirectoryname(apath); //获取一个有效的目录名称
{查找一个匹配的文件}
findresult:=findfirst(apath+ffilename,faanyfile+fahidden+fasysfile+fareadonly,fsearchrec);
try
{继续查找匹配的文件}
 while findresult=0 do
  begin
   Listbox1.Items.Add(lowercase(apath+fsearchrec.Name));
   t:=t+1;
   label1.Caption:=inttostr(t);
   findresult:=findnext(fsearchrec);
  end;
{在当前目录的子目录中进行查找}
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);//在此处是递归调用
    findresult:=findnext(dsearchrec);
  end;
finally
 findclose(fsearchrec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
{调用FindFiles()函数，用来搜索子目录}
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.

怎么样，完成了吗？把它再完善一下就可以成为一个可以在所有驱动器中查找文件的程序了。本程序在WinME/Delphi5中运行通过。
（本文代码已经收入本期光盘）

• 电脑硬件知识
• 软件知识
• 操作系统
• 电脑故障
• qq大全
• Word教程
• Excel教程
• 电脑技巧
• 网络知识
• 软件技巧
• 网赚
• 网络应用
• 笔记本知识
• 电脑知识
• 电脑维修
• 软件故障

• · 为何QQ总弹出安全登录验证2则
• · 多媒体升级时常见故障的处理
• · 利用硬盘驱动器号制作防扩散FOXPRO程序
• · 高速视频转换借力CUDA
• · 在KMPlayer中手动切换解码器
• · 如何突破IP加MAC绑定
• · 如何让ACDSee成为默认的图片浏览器
• · SnagIt连续抓以多个窗口
• · SnagIt直接截取灰度图片
• · Nero快速制作精美的光盘封面
• · 完美卸载XP快速卸载顽固软件
• · VoptXP测试驱动器性能
• · VirturlDriver让虚拟光驱开机时自动加载
• · 通过递归调用来搜索文件
• · AutoCAD复制粘贴图纸导致死机
• · 监控软件导致QQ无法登录
• · 提高WindowsXP启动速度的方法
• · Office 2007无法正常卸载怎么办
• · 如何用批处理一次建立或删除多个目录
• · 教你Windows百毒不侵的13个妙招
• · ATI显卡在线看电影时花屏应该如何解决