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):

zusammenfalten · markieren

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?

TreeView Ordnerstruktur - Items an richtige Position setzen

TreeView Ordnerstruktur - Items an richtige Position setzen

Forumregeln