Frage:
Wo sollte das "FindClose(SR)" stehen?
An Stelle (1) oder Stelle (2)?
Delphi-Quellcode:
if (FindFirst(myDP+'*.*', faANYFILE, SR) = 0) then begin
repeat
until (FindNext(SR) <> 0);
{-1-} FindClose(SR);
end;
{-2-} FindClose(SR);
FindClose gibt die Ressourcen frei, die ein erfolgreiches FindFirst belegt hat. D.h. ein nicht erfolgreiches FindFirst belegt keine Ressourcen, die freigegeben werden muessen.
-> Stelle 1
Und wie Schokohase schon schreibt: Am besten mit Try .. Finally.