Funktion erweitern

[himitsu]

Zitat:

Delphi-Quellcode:

if DateiendungAnzeigen=False then
begin
  Delete(Dateiname,Pos('.',Dateiname),Length(Dateimaske));
end;

=False und vorallem =True sollte man nicht zum Vergleichen verwenden.

Und dann hast du z.B. ein Probleme mit Dateien, welche einen Punkt im Namen haben. (der letzte Punkt zählt als Trennung und nicht er erste, welchen Pos finden würde)

Delphi-Quellcode:

if not DateiendungAnzeigen then
  Dateiname := ChangeFileExt(Dateiname, '');

zu deiner Frage:
- rufe deine Funktion rekursiv auf, bei Unterverzeichnissen
- und gib den Node des übergeordneten TreeNodes mit, welcher dann als Parent für die neuen Nodes verwendet wird.
- beim ersten Aufruf übergibst du den RootNode des TreeView