理解 Delphi 的类(十) - 深入方法[28] - 递归函数实例: 搜索当前目录下的所有嵌套目录
2008-01-15 15:45
549 查看
//上面一个例子不能说明递归函数的本质, 直接来个实用的函数吧, 刚好要用. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //列出一个目录下所有目录(包括嵌套)的函数 procedure GetDirs(dirName: string; List: TStrings); var SRec: TSearchRec; {定义 TSearchRec 结构变量} dir: string; const attr: Integer = faDirectory; {文件属性常量, 表示这是文件夹} begin dirName := ExcludeTrailingBackslash(dirName) + '\'; {不知道最后是不是 \; 先去掉, 再加上} dir := dirName + '*.*'; {加上 \; *.* 或 * 表示所有文件, 系统会把目录也当作一个文件} if FindFirst(dir, attr, SRec) = 0 then {开始搜索,并给 SRec 赋予信息, 返回0表示找到第一个} begin repeat if (SRec.Attr = attr) and {如果是文件夹} (SRec.Name <> '.') and {排除上层目录} (SRec.Name <> '..') then {排除根目录} begin List.Add(dirName + SRec.Name); {用List记下结果} GetDirs(dirName + SRec.Name, List); {这句就是递归调用, 如果没有这句, 只能搜索当前目录} end; until(FindNext(SRec)<>0); {找下一个, 返回0表示找到} end; FindClose(SRec); {结束搜索} end; {测试} procedure TForm1.Button1Click(Sender: TObject); var list: TStrings; begin list := TStringList.Create; GetDirs('C:\Downloads', list); Memo1.Lines := list; list.Free; end; end.
相关文章推荐
- 递归函数实例: 搜索当前目录下的所有嵌套目录
- 理解 Delphi 的类(十) - 深入方法[27] - 递归函数: 简单示例
- 用嵌套递归的方法搜索指定目录下的所有文件
- 理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类
- PHP使用递归方式列出当前目录下所有文件的方法
- 理解 Delphi 的类(十一) - 深入类中的方法[1] - 虚方法与动态方法
- 理解 Delphi 的类(十) - 深入方法[5] - Result 与函数名
- 理解 Delphi 的类(十) - 深入方法[13] - 在 interface 区声明的方法
- 理解 Delphi 的类(十) - 深入方法[26] - 回调函数
- 理解 Delphi 的类(十一) - 深入类中的方法[7] - 关于 inherited
- 深入理解HTTP协议之POST方法——ajax实例
- 理解 Delphi 的类(十) - 深入方法[6] - Result
- 理解 Delphi 的类(十) - 深入方法[14] - 在TForm1 类内声明的方法
- 搜索当前目录下所有文件包含某关键词的文本/文件名/行号
- 理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类
- 深入理解布局容器绘制,解决ListView嵌套listview,或者ScrollView嵌套listview,gridview的高度问题解决方法
- 理解 Delphi 的类(十) - 深入方法[1] - 定义
- 理解 Delphi 的类(十) - 深入方法[7] - Result
- 理解 Delphi 的类(十) - 深入方法[15] - 调用其他单元的函数
- 理解 Delphi 的类(十一) - 深入类中的方法[1] - 虚方法与动态方法