Brauche Hilfe bei Rekursion

[Luckie]

Könntet ihr bitte wieder zum Thema zurückkehren? Hier haben zwei Beteiligte etwas überreagiert. Aber daraus muss ja nun kein Drama machen.

[chaosben]

Ist doch ganz einfach:

Delphi-Quellcode:

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;

Aber tu mir einen Gefallen: versuch den Code zu verstehen anstatt ihn einfach nur zu nutzen.