Verzeichnislisting als Baumansicht in StringListe

[joachimd]

Gib eine Level-Variable mit rein:

Delphi-Quellcode:

procedure TDTListDir.FindFiles(RootFolder: AnsiString; Mask: AnsiString = '*.*'; iLevel: integer=0; Recurse: Boolean = True);
...
FindFiles(Folder, Mask, iLevel+1, Recurse);
...

Anhand des Levels kommen dann die Tabs/Leerzeichen.