AW: Brauche Hilfe bei Rekursion
Könntet ihr bitte wieder zum Thema zurückkehren? Hier haben zwei Beteiligte etwas überreagiert. Aber daraus muss ja nun kein Drama machen.
|
AW: Brauche Hilfe bei Rekursion
Ist doch ganz einfach:
Delphi-Quellcode:
Aber tu mir einen Gefallen: versuch den Code zu verstehen anstatt ihn einfach nur zu nutzen.
procedure ProcessPath(APath: String);
var sr : TSearchRec; begin APath := IncludeTrailingPathDelimiter(APath); if FindFirst(APath + '*.*', faAnyFile, sr) = 0 then begin repeat if (sr.Name = '.') or (sr.Name = '..') then continue; if sr.Attr and faDirectory = faDirectory then ProcessPath(APath + sr.Name) else begin // Datei weiterverarbeiten end; until FindNext(sr) <> 0; FindClose(sr); end; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:25 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