Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
17. Mär 2008
Noch' n Gedicht :mrgreen: function IsFolderEmpty(const Foldername: string): Boolean;
var Rec: TSearchRec;
begin
Result := false;
if FindFirst(IncludeTrailingPathDelimiter(Foldername) + '*.*',faAnyFile,Rec) = 0 then
begin
repeat
Result := (Rec.Name = '.') or (Rec.Name = '..');
until (FindNext(Rec) <> 0) or not Result;
FindClose(Rec);
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
17. Mär 2008
Was wäre denn da so schlimm daran? Ein Verzeichnis, das Unterverzeichnisse enthält, ist eben auch nicht leer.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
17. Mär 2008
@Manuel: Fehlt da nicht ein FindNext?