paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: fixed compilation, bug #22323

Browse Source 
git-svn-id: trunk@37805 -
This commit is contained in:
maxim 2012-06-27 19:48:23 +00:00
parent 11a28c808b
commit ddad43e884
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/winfileutil.inc
View File

@ -88,7 +88,7 @@ end;
function GetFileDescription(const AFilename: string): string; function GetFileDescription(const AFilename: string): string;
begin begin
// date + time // date + time
Result:=rsModified; Result:=lrsModified;
try try
Result:=Result+FormatDateTime('DD/MM/YYYY hh:mm', Result:=Result+FormatDateTime('DD/MM/YYYY hh:mm',
FileDateToDateTime(FileAgeUTF8(AFilename))); FileDateToDateTime(FileAgeUTF8(AFilename)));