DELPHI--查找目录下所有文件

在站点收入了一篇文章:
http://hi.baidu.com/nianxiaoyou/blog/item/de4b79faad71378c9f514669.html

其中第三个内容是实现:

查找某目录下的所有目录,包含 “.” “..”

代码如下:

procedure TForm1.Button2Click(Sender: TObject);

var

sr: TSearchRec;

begin

ListBox1.Items.Clear ;

if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then

begin

    repeat

      if (sr.Attr and faDirectory)<>0 then

        ListBox1.Items.Add(sr.Name+ '   '+intToStr(sr.Attr)) ;

    until FindNext(sr) <> 0;

    FindClose(sr);

end;

showMessage(intToStr(ListBox1.Items.count));

end;

首先是声明sr为TSearchRec类型.

然后清除listbox内的内容

下面开始核心的代码了
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0

我们来看下FindFirst函数说明:

FindFirst的详细说明在本站有收录.不过是E文的文档.
http://hi.baidu.com/nianxiaoyou/blog/item/10001d0f6f329b2f6159f379.html
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; $[SysUtils.pas

该函数是SysUtils单元内的一个函数.

主要有3个参数.

Path: 要搜索的路径,String类型

Attr :   我个人把这个参数定义为类型的意思

F: 是一个TSearchRec类型.

大家可以看下TSearchRec的详细说明.
http://hi.baidu.com/nianxiaoyou/blog/item/03bbdc523efe3e0b0df3e34a.html

该类型的说明:

TSearchRec defines file information searched for by FindFirst or FindNext.

按照我的理解.

TSearchRec 是确定要搜索的文件信息.比如TSearchRec的Name属性.是得到搜索文件的文件名.

下面看下TSearchRec的属性.

Delphi syntax:

On Windows:

   type 

   TSearchRec = record

    Time: Integer;

    Size: Integer;

    Attr: Integer;

    Name: TFileName;

    ExcludeAttr: Integer;

    FindHandle: THandle;

    FindData: TWin32FindData;

end;

在Windows下.有以上的属性可以使用.
FindFirst的返回值为0时,表示文件存在.

对于参数都了解了.

那么可以解释findfirst的参数说明了
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then

begin

    repeat

    ....

    until ....
的意思是 搜索D盘内work文件夹内的所有目录并保存文件的信息

如果有文件存在.

那么执行下面循环.

循环语句的执行语句内,if (sr.Attr and faDirectory)<>0 then

假如sr的属性和目录文件存在,

那么执行ListBox1.Items.Add(sr.Name+ '   '+intToStr(sr.Attr)) ;

就是在listbox控件内添加sr.name      sr.attr

循环的终止条件是:until FindNext(sr) <> 0;

FindNext(sr)<>0;

FindNext函数是继续搜索文件.如果搜索到文件,那么返回值为0.

最后FindClose(sr);

结束当前搜索.

如果不结束.那么则会占用系统资源.
然后用消息框输出,listbox内项目的个数,也就是我们搜索得到的目录的个数.

这个程序,也分析的差不多了.

希望能帮助到需要的人.