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

git-svn-id: trunk@38633 -
2025-09-28 01:19:28 +02:00 · 2018-03-27 11:35:27 +00:00 · 2018-03-27 11:35:27 +00:00 · d6752ad47c
commit d6752ad47c
parent 588460c55e
1 changed files with 2 additions and 0 deletions
--- a/packages/fcl-report/src/fpreport.pp
+++ b/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