Forum: Object-Pascal / Delphi-Language
Delphi
by arnoldo,
23. Jun 2003
Danke für den Tipp, das ist mir noch gar nicht aufgefallen. :idea:
Werde das gleich mal korrigieren:
*if ((f.Attr and faDirectory)>0) and
(f.name<>'.') and (f.name<>'..') then
filelist(path+f.Name+'\');
Forum: Object-Pascal / Delphi-Language
Delphi
by arnoldo,
22. Jun 2003
Hallo Mirage228,
einen Fehler konnte ich bei Dir nicht gleich entdecken,
jedoch habe ich schon einmal so etwas programmiert.
Mit den folgenden Code-Zeilen müsste es funktionieren.
procedure filelist(path:string);
var f,f2:tsearchrec;
begin