recursive Dateisuche -> Algorythmusfragen

[der-C]

Delphi-Quellcode:

try
...
Anweisung
...
finally
...
Anweisung
...
end;

das end; gehört zu try-finally

Zitat:

block und kein abschlusssemikolon???

bei der letzten Anweisung in einem Block braucht man glaub ich keine Semikolon.

Zitat:

Delphi-Quellcode:

if (SR.Name<>'.') and (SR.Name<>'..') then
          GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,True);

hier ruft sich die function selbst auf aber mit einem neuen (unter)Directory (ADirectory+SR.Name)

until FindNext(SR)<>0; nachdem er wieder zurückkommt wird mit FindNext der nächste ordner ausgewählt