Rekursiv Suchen

[GroZ]

Zitat von haentschman:

Welche Zeile / Anweisung? Wie sind die Werte der Parameter? An welchem Datum ist Weihnachten?

Delphi-Quellcode:

repeat
          if (X.Name <> '.') and (X.Name <> '..') and ((X.Attr and faDirectory) <> 0) then
          begin   //Geht hier nicht rein
            Result:=VerzeichnisMitFRPzuPDF(ExtractFilePath(PfadUndDateimaske)+X.Name+'\'+ExtractFileName(PfadUndDateimaske),SubDirs);
            if not Result then
              break;
          end;
        until FindNext(X) <> 0;

Hier springt er im Debugmodus von repeat zu until.
Dann kommt halt die Exception.
Die Parameterwerte sind ein einfaches Verzeichnis 'C:\Files\FRP\2010\September' beispielsweise.
Der Ordner besteht aus 8 FRP Dateien 1 Ordner in dem befinden sich 3 FRP Dateien und noch 1 Ordner der auch 3 FRP Dateien beinhaltet.
Weihnachten ist am 24.12.