Zitat von
himitsu:
Die andere Variante hat aber einen Nachteil: [...] Wenn FindFirst nichts findet, liefert FindClose einen Fehler.
Welcher Fehler soll das sein? Will sagen: ich sehe keinen. Nur wenn du direkt mit der
API-Funktion "FindFirstFile" arbeitest, musst du prüfen ob das Rückgabeergebnis ungleich
INVALID_HANDLE_VALUE ist. Nur dann darfst du "FindClose" (
API) aufrufen.
Aber Borland weiß das auch:
Zitat von
SysUtils.pas:
Delphi-Quellcode:
procedure FindClose(var F: TSearchRec);
begin
if F.FindHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(F.FindHandle);
F.FindHandle := INVALID_HANDLE_VALUE;
end;
end;
