fixed parsing invalid date

git-svn-id: trunk@3856 -
This commit is contained in:
mattias 2003-02-19 13:10:01 +00:00
parent 91a8b2248b
commit ccc1d082a8
2 changed files with 11 additions and 3 deletions

View File

@ -194,7 +194,7 @@ Fatal: Can't find unit GLIB
1. Check a clean rebuild: do a 'make clean all'
2. Check if the compiler has the correct version (1.0.6 or 1.0.7)
2. Check if the compiler has the correct version (1.0.7 or 1.1)
3. Check if the compiler is using the right config file. The normal
installation creates /etc/fpc.cfg. But fpc also searches for

View File

@ -464,8 +464,13 @@ begin
{$ENDIF}
// date + time
Result:=Result+' modified '+FormatDateTime('DD/MM/YYYY hh:mm',
FileDateToDateTime(FileAge(AFilename)));
Result:=Result+' modified ';
try
Result:=Result+FormatDateTime('DD/MM/YYYY hh:mm',
FileDateToDateTime(FileAge(AFilename)));
except
Result:=Result+'?';
end;
end;
{------------------------------------------------------------------------------
@ -772,6 +777,9 @@ end;
{
$Log$
Revision 1.13 2003/02/19 13:10:01 mattias
fixed parsing invalid date
Revision 1.12 2003/02/09 16:01:49 mattias
fixed win32 compilation