Главная » Delphi » Основная » Как загрузить папку с подкаталогами и файлами в TTreeView.

Как загрузить папку с подкаталогами и файлами в TTreeView.

14:22
procedure FilePathToTreeNode(aTreeView:TTreeView; aRoot:TTreeNode; Path:string; Recurse:boolean);
var
  NewNode : TTreeNode;
  SRec : TSearchRec;
begin
  if FindFirst(Path + '*.*', SysUtils.faAnyFile, SRec) = 0 then
  repeat
    if (sRec.Name = '.') or (sRec.Name = '..') then
      Continue;
 
    NewNode := aTreeView.Items.AddChild(aRoot, SRec.Name);
    if Recurse and ((srec.Attr and sysutils.faDirectory) <> 0) then
      FilePathToTreeNode(aTreeView, NewNode, Path + srec.name + '\', True);
 
  until FindNext(SRec) <> 0;
  FindClose(SRec);
end;
 
//Call it like this:
FilePathToTreeNode(TreeView1, nil, 'c:\', True);