FileAge -- 29.12.1899???

[Dödel]

Delphi-Quellcode:

procedure GetFiles(const Directory: string; Files: TStrings; 
const FileMask: string = '*.*'; const SubFolders: Boolean = True); 

//Hilfsfunktion, um Schrägstriche hinzuzfügen, wenn nötig 
function SlashSep(const Path, S: string): string; 
begin 
if AnsiLastChar(Path)^ <> '\' then Result := Path + '\' + S 
else Result := Path + S; 
end; 

var SearchRec: TSearchRec; 
nStatus: Integer; 
begin 
//Zuerst alle Dateien im aktuelle Verzeichnis finden 

if FindFirst(SlashSep(Directory, FileMask), faAnyFile-faDirectory-faVolumeID, 
SearchRec) = 0 then 
begin 
try 
repeat 
Files.Add(SlashSep(Directory, SearchRec.Name + ' ---- ' +DateTimeToStr(FileAge(SearchRec.Name)))); /////// Hier liegt das Problem   :firejump:  :?:  :!:  
until FindNext(SearchRec) <> 0; 
finally 
SysUtils.FindClose(SearchRec); 
end; 
end; 

//Als nächstes nach Unterverzeichnissen suchen und, wenn benötigt, durchsuchen 
if SubFolders then 
begin 
if FindFirst(SlashSep(Directory,'*.*'), faAnyFile, SearchRec) = 0 then 
begin 
try 
repeat 
//Wenn es ein Verzeichnis ist, Rekursion verwenden 
if (SearchRec.Attr and faDirectory) <> 0 then 
begin 
if ((SearchRec.Name <> '.') and (SearchRec.Name <> '..')) then 
GetFiles(SlashSep(Directory, SearchRec.Name), Files, FileMask, SubFolders); 
end; 
until FindNext(SearchRec) <> 0; 
finally 
SysUtils.FindClose(SearchRec); 
end; 
end; 
end; 

end;

-----------------



Ich hab ein Problm, wenn ich diesen Code, ohne der Zeile (s. Dies ist mein Problem) hinter dem '----', klappt noch alles, doch wenn ich den restlichen Code, der in der Zeile steht, einbinde erscheint in der Datei, die anschließend aus einer Listbox gespeichert wird IMMER 29.12.1899.
Wo liegt mein Fehler. Ich bin am verzweifeln.


Dödel

Zur Erklärung: Es soll das FileAge (letzte Änderung der Datei) hinter dem Pfad+Dateiname stehen. Z.B. D:/Dödel.txt ---- 20.07.2003

[edit=thomasdrewermann] Source-Tags eingefügt Mfg, thomasdrewermann[/edit]