TTreeView 使用

在 TTreeView 中显示目录结构(的函数)

 unit　Unit1;　　

interface　　

uses　　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　　Dialogs,　StdCtrls,　ComCtrls,　ExtCtrls;　　

type　　TForm1　=　class(TForm)　　　

TreeView1:　TTreeView;　　　

Panel1:　TPanel;　　　

Edit1:　TEdit;　　　

Button1:　TButton;　　　

procedure　Button1Click(Sender:　TObject);　　

end;　　

var　　Form1:　TForm1;　　

implementation　　 {$R　*.dfm}　　

{函数的默认参数是指定显示在第几个元素下面}　

function　DirToTree(Tree:　TTreeView;　Path:　string;　num:　Integer　=　-1):　Boolean;　

var　　sr:　TSearchRec;　　

node:　TTreeNode;　

begin　　

path　:=　ExcludeTrailingPathDelimiter(path);{去掉最后一个　'/'}　　

if　not　DirectoryExists(path)　then　Exit;　　　{路径不存在则退出}　　

if　num　=　-1　then　node　:=　nil　else　node　:=　Tree.Items[num];　{确认节点}　　　

if　FindFirst(Path　+　'/*.*',　faAnyFile,　sr)　=　0　then　　

begin　　　

repeat　　　　

if　sr.Name[1]　=　'.'　then　Continue;　　　{如果是'.'　或　'..'　(当前目录或上层目录)则忽略}　　　　　Tree.Items.AddChild(node,　sr.Name);　　　{都是通过这句添加的}　　　　　

Application.ProcessMessages;　　　　　　{加上可以让程序兼顾其他消息}　　　　　

if　(sr.Attr　and　faDirectory)　=　faDirectory　then　　{如果是文件夹则执行递归}　　　

DirToTree(Tree,　Path　+　'/'　+　sr.Name,　Tree.Items.Count-1);　　　

until　(FindNext(sr)　<>　0);　　

end;　　

Result　:=　True;　

end;　　 {测试}　

procedure　TForm1.Button1Click(Sender:　TObject);　

begin　　

TreeView1.Items.Clear;　　

DirToTree(TreeView1,　Edit1.Text);　

end;　　

end.