如何用Delphi实现子目录级的文件查询

在应用实践中，我们经常会用到文件查询功能。通过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;

2． 这是查询主体函数。

参数介绍：

Mainpath： 指定的查询目录。 
Filename： 欲查询的文件。 
Foundresult： 返回的含完整路径的匹配文件（可能有多个）。 

如果有匹配文件，函数返回True，否则，返回False; 　 

function SearchFile(mainpath:string; filename:string; 
var foundresult:TStrings):Boolean; 
var i:integer; 
Found:Boolean; 
subdir1:TStrings; 
searchRec:TsearchRec; 
begin 
found:=false; 
if Trim(filename)<>'' then 
begin 
subdir1:=TStringList.Create;//字符串列表必须动态生成 
//找出所有下级子目录。 
if (FindFirst(mainpath '*.*', faDirectory, SearchRec)=0) then 
begin 
if IsValidDir(SearchRec) then 
subdir1.Add(SearchRec.Name); 
while (FindNext(SearchRec) = 0) do 
begin 
if IsValidDir(SearchRec) then 
subdir1.Add(SearchRec.Name); 
end; 
end; 
FindClose(SearchRec); 
//查找当前目录。 
if FileExists(mainpath filename) then 
begin 
found:=true; 
foundresult.Add(mainpath filename); 
end; 
//这是递归部分，查找各子目录。 
for i:=0 to subdir1.Count-1 do 
found:=Searchfile(mainpath subdir1.Strings[i]  
'\',Filename,foundresult)or found; 
//资源释放并返回结果。 
subdir1.Free; 
end; 
result:=found; 
end;

　

总之，只要掌握了思路，用哪种编程语言都可以实现。现在，你可以轻松的给你 的系统挂上一个非常使用的功能了。

(T113)

上一篇： 关于 Delphi 中压缩流和解压流的应用
下一篇： 使用Delphi启动和关闭外部应用程序

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有