Verzeichnis im TreeView anzeigen

[MaestroAlbi]

Hi,

vll kann mri ja jemand weiterhelfen. Ich wollt das Verzeichnis von einem Laufwerk im Treeview anzeigen und auch dort Ordner auswählen können und habe es so weit geschafft.

Delphi-Quellcode:

function TWinForm.OrdnerSuchen(Verzeichnis:String; Index:Integer):Boolean;
var
  oDir      : DirectoryInfo;
  nNode     : TreeNode;
  iIndex    : Integer;


begin

  dVerzeichnis := DirectoryInfo.Create(Verzeichnis);
  OrdnerSuchen:= True;
  
  for oDir in dVerzeichnis.GetDirectories()  do
      begin
        try
          If OrdnerSuchen(oDir.FullName, Index)= True then begin
             
             //------
             nNode := TreeView1.Nodes[Index].Nodes.Add (oDir.Name);          
             TreeView1.Nodes[Index].Nodes[TreeView1.Nodes[Index].Nodes.IndexOf(nNode)].Nodes.Add (dVerzeichnis.Name);

            OrdnerSuchen:= True;
          end;
         except
            OrdnerSuchen:= False;
          end;
      end;

end;

Jetzt fehlt mir nur, dass die Ordner auch in einer Hierachie (wie im Explorere) angezeigt werden. Dies funktioniert nicht richtig. Kann mir jemand weiterhelfen?

[mkinzler]

Verwendest du nun VCL.Net oder WinForms?

[Phoenix]

Zitat von MaestroAlbi:

If OrdnerSuchen(oDir.FullName, Index)= True then begin

GuckstDu Über den Umgang mit Boolean.

[MaestroAlbi]

Arbeite mit WinForms

[MaestroAlbi]

Habe mir den umgang mit Boolean angesehen. War hilfreich, Danke. Aber mein Problem konnt ich ni wirklich damit lösen ...

[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.

[MaestroAlbi]

Vielen Dank,
die Antwort von Christian S. hat mich weitergebracht. Es ist so möglich, wie er es geschrieben hat.