[Delphi]枚举文件到树形框

嫂子

代码如图：

效果如下：


文本代码：

[Delphi] 纯文本查看 复制代码

procedure TForm12.PopulateTreeView(const Path: string; ParentNode: TTreeNode);
var
  NewNode: TTreeNode;
begin
  //先取所有入口
  var Entries := TDirectory.GetFileSystemEntries(Path);
  for var Entry in Entries do
  begin
    var EntryName := TPath.GetFileName(Entry);
    if ParentNode = nil then
      NewNode := TreeView1.Items.Add(nil, EntryName)
    else
      NewNode := TreeView1.Items.AddChild(ParentNode, EntryName);

    if TDirectory.Exists(Entry) then //判断是否为路径（文件夹）
    begin
      NewNode.ImageIndex := 1;  // 文件夹图标索引
      NewNode.SelectedIndex := 1;
      PopulateTreeView(Entry, NewNode);//是文件夹则枚举这个文件夹
    end
    else
    begin
      NewNode.ImageIndex := 0;  // 文件图标索引
      NewNode.SelectedIndex := 0;
    end;
  end;
end;

please

感谢分享，支持开源！！！

please

感谢分享，支持开源！！！

wjswzj0

开源精神必须支持~

嫂子

一粒红尘 发表于 2024-9-26 16:13
delphi  还或者么

一直都或者。
每年一个大版本，半年一个小版本

396384183

感觉很不错呦。

光影魔术

感谢分享源码

一粒红尘

delphi  还或者么  

wuqingg

一指温柔

感谢分享