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

LazReport, force variant->double convertion on evaluating aggregate functions

Browse Source 
git-svn-id: trunk@23557 -
This commit is contained in:
jesus 2010-01-25 20:35:04 +00:00
parent db6fccf081
commit 87000aa680
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9428,9 +9428,9 @@ begin
end
else if AggrBand.Visible then
begin
val := Copy(AggrBand.Values.Values[VarName], 2, 255);
val := StrToFloat(Copy(AggrBand.Values.Values[VarName], 2, 255));
if dk = dkAvg then
val := FloatToStr(StrToFloat(val) / AggrBand.Count);
val := val / AggrBand.Count;
Exit;
end;
end;