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

Merged revision(s) 52254 #fbb22d7bea from trunk:

Browse Source 
LazReport, Normalize ReportCreateDate and ReportLastChange on saving, patch from Simone Giacomelli, issue #27008
........

git-svn-id: branches/fixes_1_6@52279 -
This commit is contained in:
maxim 2016-05-03 22:12:08 +00:00
parent bb593e315d
commit 8bb25ec8e7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazreport/source/lr_utils.pas
View File

@ -854,8 +854,12 @@ begin
end; end;
function lrDateTimeToStr(ADate: TDateTime): string; function lrDateTimeToStr(ADate: TDateTime): string;
var
DF:TFormatSettings;
begin begin
Result:=FormatDateTime( 'YYYY-MM-DD HH:NN:SS', ADate); DF.DateSeparator:='-';
DF.TimeSeparator:=':';
Result:=FormatDateTime( 'YYYY-MM-DD HH:NN:SS', ADate, DF);
end; end;
function lrStrToDateTime(AValue: string): TDateTime; function lrStrToDateTime(AValue: string): TDateTime;