delphi TTreeView组件遍历磁盘目录

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）程序完整代码如下：

感觉有问题

 

//遍历目录下的所有文件
var
    Directotynote, FileNode: TTreeNode;
procedure TForm1.myfind(bNode: TTreeNode;TreeView1:TTreeView);
var
  sr: TsearchRec;
  Err: Integer;
begin
  try
    Err := FindFirst('*.*', $37, sr);
    while (ERR = 0) do
    begin

      if sr.Name[1] <> '.' then

      begin

        if (sr.Attr and faDirectory) = 0 then

        begin

          TreeView1.Items.AddChildFirst(bNode, sr.Name);

        end;

        if (sr.Attr and fadirectory) = faDirectory then

        begin

          FileNode := TreeView1.Items.AddChildFirst(bnode, sr.Name);

          chdir(sr.Name);

          Application.ProcessMessages;

          myFind(FileNode,TreeView1);

         // chdir('..');

        end;

      end;

      err := FindNext(sr);

    end;
  except

  end;
end;

procedure TForm1.DLB1Change(Sender: TObject);
begin
  label2.Caption := dlb1.Directory;
  treeview1.Items.Clear;
   myFind(directotynote,TreeView1);
end;

 

来自为知笔记(Wiz)

附件列表