Welcome to the Tweaking4All community forums!
When participating, please keep the Forum Rules in mind!
Topics for particular software or systems: Start your topic link with the name of the application or system.
For example “MacOS X – Your question“, or “MS Word – Your Tip or Trick“.
Please note that switching to another language when reading a post will not bring you to the same post, in Dutch, as there is no translation for that post!
For one of my projects, I needed to determine if a directory was empty, and I couldn't find a function for this.
So I wrote a tiny procedure that does this for us, and it should cover Windows, Linux and MacOS:
function isEmptyDirectory(aDir:string):boolean;
var
SearchRecResult: TSearchRec;
begin
Result := FindFirst(IncludeTrailingPathDelimiter(aDir) + '*', faAnyFile, SearchRecResult)<>0;
while (SearchRecResult.Name = '.') or (SearchRecResult.Name = '..') do
Result := FindNext(SearchRecResult) <> 0;;
FindClose(SearchRecResult);
end;
