Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Ein komplettes Verzeichnis (https://www.delphipraxis.net/2230-ein-komplettes-verzeichnis.html)

nailor 13. Jan 2003 20:18


Ein komplettes Verzeichnis
 
Wenn ich in einem kompletten Verzeichnis inkl. aller Unterverzeichnisse irgendwas ändern will (zb jeder Datei eine Zeile anhängen, oder einfach alle Dateien einlesen), kann ich da irgend einen fertigen Algo nehmen, oder muss ich mir selber was zum suchen der Dateien schreiben?
Und wenn ja, wie macht man das am besten? Erst in einem (Unter-)Ordner alle Dateien verarbeiten und dann die nächste Unterebene oder besser erst mal die Ordner der selben Ebene?

Luckie 13. Jan 2003 20:25

In den FAQ steht meines Wissens was zum Dateien-Suchen drin.

Christian Seehase 13. Jan 2003 20:25

Moin Nailor,

das ist das "klassische" Problem für eine Rekursion.

Bau Dir eine Funktion, in der das was Du machen willst, für alle Dateien eines Verzeichnisses erledigt wird (FindFirst/FindNext).
Sobald Du dabei auf ein Verzeichnis stösst, und nicht auf eine Datei, rufst Du die Funktion aus sich selbst heraus noch einmal auf, nur diesmal wird der Pfad um das gefundene Verzeichnis ergänzt.

Sobald der ursprüngliche Funktionsaufruf abgearbeitet ist, sind dann alle Dateien im angegebenen Verzeichnis, sowie allen darunterliegenden verarbeitet.

nailor 13. Jan 2003 22:29

Zitat:

Zitat von Luckie
In den FAQ steht meines Wissens was zum Dateien-Suchen drin.

in wessen FAQ?

@Christian: hört sich logisch an und hört sich schnell an, mal testen.

Luckie 14. Jan 2003 07:46

Hm, anscheinend doch nicht. Ich dachte Christian Seehase oder sakura hätten da mal was reingestellt.

sakura 14. Jan 2003 08:55

Zitat:

Zitat von Luckie
Hm, anscheinend doch nicht. Ich dachte Christian Seehase oder sakura hätten da mal was reingestellt.

Wie konntest Du den blos übersehen :mrgreen:
http://www.delphipraxis.net/viewtopic.php?p=18063#18063


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz