From 10121a47772cd5f8fedc6349ca9940f904d611fc Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 18 Mar 2018 11:28:28 +0000
Subject: [PATCH] * Always initialize memo expressions, even if no Data
 available

git-svn-id: trunk@38561 -
---
 packages/fcl-report/src/fpreport.pp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/packages/fcl-report/src/fpreport.pp b/packages/fcl-report/src/fpreport.pp
index 0db40a424d..a09ba9815d 100644
--- a/packages/fcl-report/src/fpreport.pp
+++ b/packages/fcl-report/src/fpreport.pp
@@ -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