Zitat von
SirThornberry:
ganz wichtig! Du hast FindClose vergessen. Wenn FindFirst erfolgreich war solltest du am Ende auch FindClose aufrufen
Delphi-Quellcode:
if FindFirst(..., ..., SearchRec) = 0 then
begin
repeat
//Daten verarbeiten
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
Um Sicherzustellen, dass das Findclose auch ausgeführt wird bieten sich try ... finally Blöcke an, also so:
Delphi-Quellcode:
if FindFirst(..., ..., SearchRec) = 0 then
try
repeat
//Daten verarbeiten
until FindNext(SearchRec) <> 0;
finally
FindClose(SearchRec);
end;