paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 22:18:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, only format numeric values if they are really numeric

Browse Source 
git-svn-id: trunk@43466 -
This commit is contained in:
jesus 2013-11-20 19:19:40 +00:00
parent b5772a5157
commit 47ecbcc2d8
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/lr_class.pas
View File

@ -8831,6 +8831,9 @@ begin
end;
fmtNumber:
begin
if not VarIsNumeric(v) then
result := v
else begin
DecimalSeparator := Chr(AFormat and $FF);
case f2 of
0: Result := FormatFloat('###.##', v);
@ -8840,6 +8843,7 @@ begin
4: Result := FormatFloat(AFormatStr, v);
end;
end;
end;
fmtDate:
if v=0 then
Result := '' // date is null