标签：style   http   color   使用   strong   io   文件   数据   

TTreeView组件遍历磁盘目录

 实例说明

TTreeView组件是一个以分枝结构或者说树状结构显示数据的组件，以该组件显示数据具有较好的等级关系和逻辑层次，并且易于操作。在组件中显示的数据结构与系统中目录的结构非常相似，所以本例使用该组件设计一个磁盘目录查看工具。运行本例，在窗口右边选择目录或路径就可以在TTreeView组件中列出所有选择目录中的子目录和文件。实例运行效果如图1所示。

图1  TTreeView组件遍历磁盘目录

 思路与技术

磁盘中的目录结构就像TTreeView组件中显示的一样，具有较为明显的层次结构，首先将一个目录中的所有子目录及文件名添加到TTreeView组件中，然后再进入该目录中的子目录进行同上一步一样的操作，持续进行多次直到进入最后一层停止，接着回到上一层对下一个目录进行同样的操作。这个过程可以用递归的方法完成。使用FindFirst函数可以列出目录中所有的文件及子目录，该函数原型如下：

function FindFirst(const Path: string; Attr: Integer; var  F: TSearchRec): Integer;

参数说明：

l          Path：查找的文件，如果设置为*.*表示所有的文件及目录。

l          Attr： 文件属性。

l          F：搜索信息。

  注意：TTreeView组件的等级关系。

 开发步骤

（1）新建一个标准工程，创建一个新窗体，默认主窗体的Name属性为Form1。

（2）在主窗体中添加一个TLabel、TtreeView、TDriveComboBox、TdirectoryListBox 、TSaveDialog和TButton组件。

（3）设置TDirectoryListBox组件的Name属性为DLB1，设置TDriveComboBox组件的Dirlist属性为DLB1。

（4）程序完整代码如下：