📄 findfile_subdir.htm
字号:
<HTML>
<!-- #BeginTemplate "/Templates/alltips.dwt" -->
<HEAD>
<TITLE>Delphi爱好者--技巧集</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.font9 { font-size: 9pt; text-decoration: none}
.font105 { font-size: 10.5pt; text-decoration: none}
a:hover { color: #F77C02; text-decoration: underline}
a:active { color: #0000FF; text-decoration: none}
a { color: #0000FF; text-decoration: none}
-->
</style>
</HEAD>
<BODY BGCOLOR="#FFFFFF" class="font9">
<!-- #BeginEditable "head" -->
<div align="center"><b class="font105">用Delphi实现子目录级的文件查询 </b></div>
<p> </p>
<p><span class="font105">在应用实践中，我们经常会用到文件查询功能。通过Win95中提供的查找功能，我们可以方便的找出磁盘上任何子目录下的文件，其原因是该查找功能可以遍历指定目录下的所有子目录中的文件。从编程角度讲，它实现了子目录级的文件查询。其实，这项功能并不难实现，关键是能理解并掌握懙莨閽这种程序设计思路。本人用Delphi实现了该项功能（任意子目录级），由于使用了懙莨閽，程序思路清晰，代码量小。
</span></p>
<p><span class="font105">实现方法： <br>
1． 获取当前目录下的所有下一级子目录。 <br>
2． 存入字符串列表中（Tstrings）。 <br>
其中，用到了几个API函数。 <br>
FindFirst 是找出指定目录下第一个文件或目录。 <br>
FindNext 一般和FindFirst配合使用，用来找出下一个文件或目录。 <br>
FindClose 用来关闭查询。 <br>
（以上函数Delphi在线帮助中有详尽解释，在此不赘述）； <br>
3． 用FileExists函数查找当前目录， <br>
4． 寻找是否有满足条件的文件存在， <br>
5． 依次使各个子目录成为当前目录， <br>
6． 递归调用本函数， <br>
7． 释放资源， <br>
8． 返回查询结果。 <br>
<br>
代码如下： <br>
1． 从搜索记录中判断是否是子目录。 <br>
<br>
function IsValidDir(SearchRec:TSearchRec):Boolean; <br>
begin <br>
if (SearchRec.Attr=16) and <br>
(SearchRec.Name<>'.') and <br>
(SearchRec.Name<>'..') then <br>
Result:=True <br>
else <br>
Result:=False; <br>
end; <br>
2． 这是查询主体函数。 <br>
参数介绍： </span></p>
<p><span class="font105">Mainpath： 指定的查询目录。 <br>
Filename： 欲查询的文件。 <br>
Foundresult： 返回的含完整路径的匹配文件（可能有多个）。 </span></p>
<p><span class="font105">如果有匹配文件，函数返回True，否则，返回False; </span></p>
<p><span class="font105">function SearchFile(mainpath:string; filename:string;
<br>
var foundresult:TStrings):Boolean; <br>
var i:integer; <br>
Found:Boolean; <br>
subdir1:TStrings; <br>
searchRec:TsearchRec; <br>
begin <br>
found:=false; <br>
if Trim(filename)<>'' then <br>
begin <br>
subdir1:=TStringList.Create;//字符串列表必须动态生成 <br>
//找出所有下级子目录。 <br>
if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then <br>
begin <br>
if IsValidDir(SearchRec) then <br>
subdir1.Add(SearchRec.Name); <br>
while (FindNext(SearchRec) = 0) do <br>
begin <br>
if IsValidDir(SearchRec) then <br>
subdir1.Add(SearchRec.Name); <br>
end; <br>
end; <br>
FindClose(SearchRec); <br>
//查找当前目录。 <br>
if FileExists(mainpath+filename) then <br>
begin <br>
found:=true; <br>
foundresult.Add(mainpath+filename); <br>
end; <br>
//这是递归部分，查找各子目录。 <br>
for i:=0 to subdir1.Count-1 do <br>
found:=Searchfile(mainpath+subdir1.Strings[i]+ <br>
'\',Filename,foundresult)or found; <br>
//资源释放并返回结果。 <br>
subdir1.Free; <br>
end; <br>
result:=found; <br>
end; <br>
<br>
总之，只要掌握了思路，用哪种编程语言都可以实现。现在，你可以轻松的给你 的系统挂上一个非常使用的功能了。 </span></p>
<p><br>
</p>
<br>
<div align="center" class="font9"><span class="font9">『Site:<a href="../index.html" target="_top">delphi爱好者</a>
| E-mail:<a href="mailto:delphifan@990.net%20">delphifan@990.net </a>| Webmaster:<a href="../aboutme.htm" target="_top">梁
明</a>』</span> <br>
<span class="font9">---------------------------------------------------------------------------</span>
</div>
<div align="center"> </div>
<div align="center">
<input type="button" value="返 回" onClick="history.go( -1 );return true;" name="button">
</div>
<!-- #EndEditable -->
</BODY>
<!-- #EndTemplate -->
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -