学习 TTreeView [13] - 在 TTreeView 中显示目录结构(的函数)
学习 TTreeView [13] - 在 TTreeView 中显示目录结构(的函数)
涂孟超 发表于3年前
学习 TTreeView [13] - 在 TTreeView 中显示目录结构(的函数)
  • 发表于 3年前
  • 阅读 2
  • 收藏 0
  • 点赞 0
  • 评论 0

新睿云服务器60天免费使用,快来体验!>>>   

测试效果图:


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.

 
 
 
 
 

 

 

  
  • 打赏
  • 点赞
  • 收藏
  • 分享
共有 人打赏支持
粉丝 12
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: