rekursionstiefe erkennen bei ordnern

[sx2008]

Auf Github habe ich eine FileScanner Klasse, die für jede gefundene Datei (und jedes Verzeichnis) ein Event feuert.
https://github.com/sx2008/Delphi-Tes...er/FileScanner
Über das Event bekommt man nicht nur den Dateinamen sondern auch Pfad, Dateigröße, Datum und die Verzeichnistiefe mitgeteilt.
Mit einer kleinen Änderung könnte man sogar die Suchtiefe auf einen bestimmten Wert begrenzen.

[nuclearping]

Wenn du es in deiner eigenen Funktion lösen willst, dann brauchst du (wie schon gesagt wurde) entweder eine globale Variable () oder du musst die Tiefe in deiner Prozedur "mitschleifen".

Delphi-Quellcode:

procedure tform1.FindAllFiles(var FileList: TStrings; RootFolder: string; RecurseLevel: Integer = 0; Mask: string ='*.*'; Recurse: Boolean = True);
begin
  //...
  if RecurseLevel = 0 then
    ShowMessage('Root')
  else
    ShowMessage(Format('%d. Ebene', [RecurseLevel + 1]);
  r := FindFirst(...);  
  while r = 0 do
    begin
      if (SR.Attr and faDirectory = faDirectory) and (sr.name[1] <> '.') then
        FindAllFiles(..., ..., RecurseLevel + 1, ...)
      else ...
    end;
end;

[himitsu]

Zitat von pelzig:

Müsste man beim rekursiven Procedure-Aufruf nicht irgendwo trotzdem noch global den Anfangswert der Rekursionstiefe setzen

Zitat von nuclearping:

oder du musst die Tiefe in deiner Prozedur "mitschleifen".

siehe #3

Entweder manuell beim ersten/äußeren Aufruf die 0 (Startwert) übergeben, oder das als Defaultwert automatisch machen lassen.

[pelzig]

Also Alles was Recht ist, Herr nuclearping:

So einfach ein "ShowMessage()" innen Süßkot reinschreiben kann doch jeder

Hier HEFTIGER angesagt ist das Parsen aller Map-Dateien, die über streng geheime Compileroptionen in der DPR-Datei mit ifDef und abwegigen *.inc-Dateipfaden...

[Srg+O+O] geht wohl nicht mehr nach neuer als Delph7personal?

Man man man! Deutsch, nicht män män män!

Die Problemlösung für den TE dürfte recht einfach sein, da fast Jeder schon mal rekursiv Ordner nach Dateien durchsucht hat.

Aber eine Copy&Paste-Lösung hier für den TE reinstellen möchte ich
(oder himitsu?/nuclearping?) nicht! Die kann der TE sich ergoogeln!

MfG

[himitsu]

Reicht es nicht, wenn die schon zwei Mal gepostet und mindestens 5 Mal erwähnt wurde?

[pelzig]

Manchmal bekommt man erfrischend neue Sachen von der DP mit, wenn man seinen Cache löscht...

MfG

[Luckie]

Darf ich auch noch mal?

Also entweder in einer Globalen Variable mitzählen. Kann man auch schön in eine Klasse kapseln und/oder einen Event bei jedem Aufruf auslösen und von außen mitzählen. Das kann man auch schön in eine Klasse kapseln.