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?