ListBox-/View mit Dateien und Verzeichnissen anzeigen

[Jim Carrey]

Ich meinte eher, wie ich generell durch die Liste gehe.
Ich bin jetzt soweit, dass ich durch alle Items gehen kann:

Delphi-Quellcode:

procedure TForm11.Button3Click(Sender: TObject);
var
 i: Integer;
 Node: TTreeNode;
begin
 // ... Liste mit Dateinamen in StringList laden ...

 Node := GtroCheckShellTreeView1.Items[0].getFirstChild;

 while Assigned(Node) do
  begin
   ShowMessage(Node.Parent.Text + '\' + Node.Text);

   // Hier würde ich jetzt gucken, ob Node.Parent.Text + '\' + Node.Text in der StringList ist. Wenn ja => anchecken

   Node := Node.GetNext;
  end;

Das würde eigentlich perfekt passen.
Ist das OK so oder totaler Mumpitz?

[Luckie]

Warum probierst du es nicht aus, ob es funktioniert?

[Jim Carrey]

Es funktioniert natürlich, genau wie ich wollte. Ich dachte nur, es gibt da eine schönere Lösung.

[Jim Carrey]

Es funktioniert doch nicht so wie ich erhofft habe

Die Ordnberstruktur ist
- test
-- test\1
--- test\2
---- test\2\3.dll
--- test\2\2.dll
-- test\1.dll

Verzeichnis test beinhaltet Ordner 1 und Datei 1.
Verzeichnis 1 beinhaltet Ordner 2 und Datei 2.
Verzeichnis 2 beinhaltet Datei 3.

Meine oben geschriebene while-Schleife guckt leider nur in test nach und geht nicht in die Unterverzeichnisse.
Jetzt bin ich mit meinem Latein leider am Ende.

[Luckie]

Stichwort Rekursion.

[Jim Carrey]

Genau das habe ich befürchtet. Seitdem der erste Beitrag existiert suche ich nach Lösungen aber ich scheine zu dumm dafür zu sein.
Denkst du, du kannst mir helfen?

[Luckie]

Zur Rekursion gibt es genug Beispiel und Tutorials. Das sollte eigentlich reichen. Und wen du konkreten Code hast, kann man immer noch mal nachfragen.