首页 / 软件开发 / Delphi / 如何用Delphi实现子目录级的文件查询

如何用Delphi实现子目录级的文件查询2011-04-23在应用实践中，我们经常会用到文件查询功能。通过Win95中提供的查找功能，我们可以方便的找出磁盘上任何子目录下的文件，其原因是该查找功能可以遍历指定目录下的所有子目录中的文件。从编程角度讲，它实现了子目录级的文件查询。其实，这项功能并不难实现，关键是能理解并掌握懙莨閽这种程序设计思路。本人用Delphi实现了该项功能（任意子目录级），由于使用了懙莨閽，程序思路清晰，代码量小。

实现方法：

1．获取当前目录下的所有下一级子目录。

2．存入字符串列表中（Tstrings）。

其中，用到了几个API函数。

FindFirst 是找出指定目录下第一个文件或目录。

FindNext 一般和FindFirst配合使用，用来找出下一个文件或目录。

FindClose 用来关闭查询。

（以上函数Delphi在线帮助中有详尽解释，在此不赘述）；

3．用FileExists函数查找当前目录，

4．寻找是否有满足条件的文件存在，

5．依次使各个子目录成为当前目录，

6．递归调用本函数，

7．释放资源，

8．返回查询结果。

代码如下：

1.从搜索记录中判断是否是子目录。

function IsValidDir（SearchRec:TSearchRec）:Boolean;
begin
if （SearchRec.Attr=16） and
（SearchRec.Name<>"."） and
（SearchRec.Name<>".."） then
Result:=True
else
Result:=False;
end;