is Directory empty/de

From Free Pascal wiki

Deutsch (de)
Zurück zur Seite Code Beispiele.

Die Funktion ermittelt unter Windows und Linux (Ubuntu) ob das Verzeichnis leer ist:

uses
  SysUtils;

  ...

function funIstVerzeichnisLeer(strVerzeichnis: string): boolean;
var
  srDatensatz: TSearchRec;
  intI: integer;

begin

  Result := False;

  FindFirst(IncludeTrailingPathDelimiter(strVerzeichnis) + '*', faAnyFile, srDatensatz);

  for intI := 1 to 2 do
    if (srDatensatz.Name = '.') or (srDatensatz.Name = '..') then
      Result := FindNext(srDatensatz) <> 0;

  FindClose(srDatensatz);

end;


Aufruf unter Windows:

function funTest: string;
begin

  if funIstVerzeichnisLeer('D:\Test') = True then
    Result := 'Leer'
  else
    Result := 'nicht Leer';

end;


Aufruf unter Linux (Ubuntu):

function funTest: string;
begin

  if funIstVerzeichnisLeer('/home/user/Test') = True then
    Result := 'Leer'
  else
    Result := 'nicht Leer'; 

end;



--Olaf 05:18, 17 July 2013 (UTC)