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

页面导航:首页 > 软件编程 > Delphi > 如何用Delphi实现子目录级的文件查询

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

来源: 作者: 时间:2016-02-05 11:47 【

在应用实践中,我们经常会用到文件查询功能。通过Win95中提供的查找功能,我们可以方便的找出磁盘上任何子目录下的文件,其原因是该查找功能可以遍历指定目录下的所有子目录中的

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

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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <