AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Ordner prüfen ob er leer ist

Ein Thema von SaFu · begonnen am 17. Mär 2008 · letzter Beitrag vom 9. Mai 2008
Antwort Antwort
Seite 2 von 4     12 34   
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.990 Beiträge
 
Delphi 7 Professional
 
#11

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 11:00
Mit OR die Strings verketten? Nee, wie sollte das funktionieren?
Ralph
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.769 Beiträge
 
Delphi 10.4 Sydney
 
#12

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 11:03
Hallo Sascha,

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

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.990 Beiträge
 
Delphi 7 Professional
 
#13

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 11:09
Das ist dort ja nahezu genial gelöst!
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#14

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 11:32
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
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#15

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 11:37
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.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#16

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 11:43
Das ergebnis ist doch auf eine Variable zugewiesen

isEmpty : boolean; oder verstehe ich das falsch
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.990 Beiträge
 
Delphi 7 Professional
 
#17

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 11:51
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)
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#18

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 11:57
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.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#19

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 11:59
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;
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.990 Beiträge
 
Delphi 7 Professional
 
#20

Re: Ordner prüfen ob er leer ist

  Alt 17. Mär 2008, 12:00
Ja, das sind nachvollziehbare Argumente
Ralph
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:19 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz