소스 검색

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

git-svn-id: trunk@38633 -
michael 7 년 전
부모
커밋
d6752ad47c
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  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