Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
9. Mai 2008
Also die Lösung vom Klaus01 funktioniert bis jetzt ohne Probleme, gut ich muss dazu sagen das ich dieses noch nicht groß getestet habe aber im groben funzt es.
Ich bin natürlich für verbesserungen offen
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
22. Mär 2008
Ok Danke funktioniert so
gruss sascha
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
17. Mär 2008
jetzt bin total verwirrt bei mir funktioniert so gut wie keine lösung richtig
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
17. Mär 2008
Das ergebnis ist doch auf eine Variable zugewiesen
isEmpty : boolean;
oder verstehe ich das falsch
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
17. Mär 2008
Also ich kann machen was ich will ich bekomm immer nur ein false rause
directory:= (Form1.ServerPfad + 'DokumentenurRTF');
isEmpty := IsDirectoryEmpty(directory) ;
ShowMessage(BoolToStr(isEmpty,true)) ;
function TForm5.IsDirectoryEmpty(const directory: string): boolean;
var
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
17. Mär 2008
Ja mein problem ist ja noch das ich auf drei Formate prüfen muss (jpg,gif und bmp) also fühge ich es einfach mit einem OR an oder?
einfacher wäre es natürlich ob es kommplett leer ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
17. Mär 2008
so ähnlich
if FindFirst(Form1.ServerPfad + 'Bilder',faAnyFile, SR) = 0 then
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
17. Mär 2008
Hi
gibt es eine Möglichkeit zu prüfen ob ein Ordner lee ist oder nicht
z.b.
if Directory(C:\test) = Empty then
showmessage ('leer');