TreeView Ordnerstruktur - Items an richtige Position setzen

[Mazel]

Hallo,

ich bin gerade dabei ein kleines Programm zu machen, welches CD/DVD's einliest. Nun möchte ich die genaue Ordnerstruktur, wie sie auf der CD/DVD ist, in dem TreeView angezeigt bekommen. Ich kann hier kein ShellTreeView verwenden, weil ich mehrere Scheiben habe und die Struktur abgespeichert wird, so dass ich sie dann immer wieder aufrufen kann.
Das durchsuchen der CD/DVD soll nicht das Problem darstellen, jedoch, den Ordner an die richtige Position im TreeView zu setzen.
Momentan sieht es so aus, passt aber leider nicht bei jedem Ordner (für Parent suche ich ersatzt):

Delphi-Quellcode:

// Ordner gefunden
 begin
   // CountShlashes zählt Slashes
   if CountSlashes(Path) = 1 then
     begin
       SlashCount := 1;
       Node := TVwDirs.Items.Add(nil, SearchRec.Name);
     end
   else
     begin
       if CountSlashes(Path) > SlashCount then LastNode := TVwDirs.Items.Count - 1;
       if CountSlashes(Path) < SlashCount then LastNode := TVwDirs.Items LastNode].Parent.AbsoluteIndex;
       SlashCount := CountSlashes(Path);
       Node := TVwDirs.Items.AddChild(TVwDirs.Items[LastNode], SearchRec.Name);
     end;
 end;

So sonderlich gut sieht die Lösung auch nicht aus.

So halb funktioniert es aber, da nicht immer gesagt ist, wenn ein Pfad zu Ende ist, dass der nächste eine Ebene höher anfängt (Parent), funktionert es eben nicht.

Kennt jemand eine LÖsung zu diesem Problem?

[raiguen]

Ich hab das mal in ähnlicher Form so realisiert:

Delphi-Quellcode:

procedure Tfrmxyz.Button8Click(Sender: TObject);
  procedure GetDirs(const ADirectory: string; var Tree: TTreeView; Start: TTreeNode);
    //-------Anfang inbound function-------------
    function SlashSep(const Path, S: string): string;
    begin
     if AnsiLastChar(Path)^ <> '\' then
       Result := Path + '\' + S    else
       Result := Path + S;
    end;
    //------Ende inbound function

   //-------Anfang inbound Proc------------------
   var SearchRec: TSearchRec;
       NewNode: TTreeNode;
   begin
    if FindFirst(SlashSep(ADirectory, '*.*'), faDirectory, SearchRec) = 0 then begin
      try
        repeat
          if ((SearchRec.Attr and faDirectory) <> 0) then begin
            if ((SearchRec.Name <> '.') and (SearchRec.Name <> '..')) then begin
              NewNode:=Tree.Items.AddChild(Start, SearchRec.Name);
              GetDirs(SlashSep(ADirectory, SearchRec.Name), Tree, NewNode);
            end;
          end;
        until FindNext(SearchRec) <> 0;
      finally
         SysUtils.FindClose(SearchRec);
      end;
    end;              
  end;
  //--------Ende inbound Proc------------------


var tn: TTreeNode;
begin
   TreeView1.Items.BeginUpdate;
   TreeView1.Items.Clear;
   tn:= TreeView1.Items.Add(nil,'Pladde D'); //RootKnoten
   GetDirs('D:\*.*', TreeView1, tn);
   TreeView1.Items.EndUpdate;
end;

[Mazel]

Hi,

danke dir. Ich habe mir dein Code mal angeschaut und gesehen, wo meine Fehler sind und was ich anders machen kann.
Nun klappt es. :thumb:

Gruß
Mazel