Ordner prüfen ob er leer ist

[taaktaak]

Mit OR die Strings verketten? Nee, wie sollte das funktionieren?

[Klaus01]

Hallo Sascha,

habe noch diesen Code gefunden.
Dort wird auf *.* geprüft.

Grüße
Klaus

[taaktaak]

Das ist dort ja nahezu genial gelöst!

[SaFu]

Also ich kann machen was ich will ich bekomm immer nur ein false rause

Delphi-Quellcode:

directory:= (Form1.ServerPfad + 'DokumentenurRTF');
isEmpty := IsDirectoryEmpty(directory) ;

ShowMessage(BoolToStr(isEmpty,true)) ;

function TForm5.IsDirectoryEmpty(const directory: string): boolean;
var
  searchRec :TSearchRec;
begin
  try
   result := (FindFirst(directory+'\*.*', faAnyFile, searchRec) = 0) AND
             (FindNext(searchRec) = 0) AND
             (FindNext(searchRec) <> 0) ;
  finally
    FindClose(searchRec) ;
  end;
end;

mach ich was falsch

[SirThornberry]

autsch. Die Lösung gefällt mir überhaupt nicht. Aber das ist geschmacksache. Am besten weißt du die Ergebnisse erstmal auf temporäre Variablen zu dann kannst du debuggen warum du nicht das gewünschte Ergebnis bekommst.

[SaFu]

Das ergebnis ist doch auf eine Variable zugewiesen

isEmpty : boolean; oder verstehe ich das falsch

[taaktaak]

Moin, Moin SirThornberry!
Was gefällt dir an der Lösung nicht (abgesehen davon, dass sie keine korrekten Ergebnisse liefert) - Subdirectories werden in der Originalform leider auch als Files erkannt! Aber sonst ist sie doch optinal kurz: FindFirst findet ".", das erste FindNext findet "..", das zweite FindNext enstscheidet dann (leider falsch)

[SirThornberry]

mir gefällt an der Lösung zum Beispiel nicht das FindClose auch aufgerufen wird wenn FindFirst fehlschlägt. Das ist zwar erlaubt aber überflüssig. Der Sinn von Try-Finally bleibt mir an der Stelle auch Schleierhaft. Es ist nirgends Code der eine Exception erzeugen könnte.

[Die Muhkuh]

Hi,

ich werfe mal diese Funktion in den Raum:

Delphi-Quellcode:

function IsDirectoryEmpty(Directory: String): Boolean;
var
  SR: TSearchRec;
begin
  Result := false;

  if FindFirst(Directory, faAnyFile, SR) = 0 then
  begin
    repeat
       Result := (SR.Name <> '.') and (SR.Name <> '..');
    until Result;

    FindClose(SR);
  end;
end;

[taaktaak]

Ja, das sind nachvollziehbare Argumente