好库网 好库网首页 | 我的好库
Delphi盒子

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

发布者:delphibox
发布日期:2011/4/8 22:33:50   更新日期:2011/4/8 22:33:50
阅读次数:1780
评分:4.80
介绍: 用Delphi实现子目录级的文件查询
正文:

在应用实践中,我们经常会用到文件查询功能。通过Win95中提供的查找功能,我们可以方便的找出磁盘上任何子目录下的文件,其原因是该查找功能可以遍历指定目录下的所有子目录中的文件。从编程角度讲,它实现了子目录级的文件查询。其实,这项功能并不难实现,关键是能理解并掌握懙莨閽这种程序设计思路。

实现方法:

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;


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。