Verzeichnis im TreeView anzeigen

[Christian S.]

Ich hätte das jetzt in etwa so gemacht:

Delphi-Quellcode:

procedure MainForm.AddFolders(tn : TreeNode; rootFolder : DirectoryInfo); 
var
  dirs : Array of DirectoryInfo;
  dir : DirectoryInfo;
begin
  dirs := rootFolder.GetDirectories; //Noch prüfen, ob man überhaupt Zugriff hat oder Exception abfangen
    
  for dir in dirs do
  begin
    if tn = nil then //Unterste Ebene des TreeView (sollte eigentlich noch als Parameter übergeben werden, damit allgemein einsetzbar)
      AddFolders(treeView1.Nodes.Add(dir.Name), dir)
    else //Knoten im TreeView
      AddFolders(tn.Nodes.Add(dir.Name), dir);
  end;
end;

Da ich kein Delphi .NET drauf habe, habe ich's in Chrome gemacht. Ich hoffe, der Quelltext geht so in Delphi, habe mich bemüht, ihn so zu schreiben.