paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Always initialize memo expressions, even if no Data available

Browse Source 
git-svn-id: trunk@38561 -
This commit is contained in:
michael 2018-03-18 11:28:28 +00:00
parent 6c3ac68f1a
commit 10121a4777
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-report/src/fpreport.pp
View File

@ -11127,14 +11127,15 @@ begin
if Assigned(oData) and (oData<>aPageData) and (not odata.IsOpened) then
oData.Open;
end;
if IsFirstPass then
begin
Report.InitializeExpressionVariables;
Report.InitializePageAggregateData(lPage, aPageData);
Report.CacheMemoExpressions(lPage);
end;
aPageData.First;
end;
if IsFirstPass then
begin
Report.InitializeExpressionVariables;
if Assigned(aPageData) then
Report.InitializePageAggregateData(lPage, aPageData);
Report.CacheMemoExpressions(lPage);
end;
InitBandList(lPage,aPageData);
if Not Assigned(aPageData) then
StartNewPage