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