Dateianzahl ermitteln

[MathiasSimmack]

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;