Pagina1 van 1
Forum

Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!

Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.

Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent.





Share:
Notifications
Clear all

Lazarus Pascal - Is een directory leef?  

  RSS

Hans
 Hans
(@hans)
Prominent Member Admin
Lid geworden: 7 jaar geleden
Berichten: 822
18 maart 2020 14:19  

Hier een kleine procedure die ik geschreven heb voor het bepalen of een directory leeg is.

Dit zou moeten werken voor Windows, Linux en 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;

ReageerCitaat
Share: