Difference between revisions of "is Directory empty/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m |
||
| Line 1: | Line 1: | ||
{{is Directory empty}} | {{is Directory empty}} | ||
<br> | <br> | ||
| + | Zurück zur Seite [[Additional Information/de|Zusätzliche Informationen]].<br> | ||
<br> | <br> | ||
Die Funktion ermittelt unter Windows und Linux (Ubuntu) ob das Verzeichnis leer ist: | Die Funktion ermittelt unter Windows und Linux (Ubuntu) ob das Verzeichnis leer ist: | ||
Revision as of 19:32, 28 January 2014
│
Deutsch (de) │
Zurück zur Seite Zusätzliche Informationen.
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)
