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

LazReport, fix initial value on COUNT aggregate function, band name was not evaluated correctly

Browse Source 
git-svn-id: trunk@27295 -
This commit is contained in:
jesus 2010-09-10 20:45:11 +00:00
parent 62e7fc2053
commit 514a2ed285
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9463,8 +9463,12 @@ begin
else if (DataSet = nil) or (Field = nil) then
begin
s1 := Trim(string(p2));
if s1 = '' then
s1 := CurBand.View.Name;
if s1 = '' then begin
if (dk=dkCount) and (p1+''<>'') then
s1 := p1
else
s1 := CurBand.View.Name;
end;
if dk <> dkCount then
s2 := Trim(string(p3)) else
s2 := Trim(string(p2));