瀏覽代碼

* Fix AV in case of group header without group footer

git-svn-id: trunk@38433 -
michael 7 年之前
父節點
當前提交
8359a6fc50
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-report/src/fpreport.pp

+ 1 - 1
packages/fcl-report/src/fpreport.pp

@@ -10197,7 +10197,7 @@ begin
     if ReprintedHeader and
     ( not lGrp.GroupChanged or
     lGrp.FNeedsReprintedHeader) and
-    ( not lGrp.GroupFooter.FIsOverflowed or
+    ( not (Assigned(lGrp.GroupFooter) and lGrp.GroupFooter.FIsOverflowed) or
       OverflowedFooterNeedsReprintedHeader ) then
     begin
       Report.FRTInRepeatedGroupHeader := True;