Browse Source

* Fix bug ID #33518 (AV if no data header

git-svn-id: trunk@38633 -
michael 7 years ago
parent
commit
d6752ad47c
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/fcl-report/src/fpreport.pp

+ 2 - 0
packages/fcl-report/src/fpreport.pp

@@ -11110,6 +11110,8 @@ end;
 
 procedure TFPReportLayouter.ShowDataHeaderBand;
 begin
+  if Not assigned(CurrentLoop.FDataHeader) then
+    exit;
   if CurrentLoop.FDataHeaderPrinted then
     Exit; // nothing further to do
   if ShowBandWithChilds(CurrentLoop.FDataHeader) then