paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid AV acessing page if band not assigned

Browse Source 
git-svn-id: trunk@38930 -
This commit is contained in:
michael 2018-05-06 09:52:10 +00:00
parent 7a3b96c1a5
commit 75e4be46f9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-report/src/fpreport.pp
View File

@ -6940,7 +6940,10 @@ end;
function TFPReportElement.GetReportPage: TFPReportCustomPage; function TFPReportElement.GetReportPage: TFPReportCustomPage;
begin begin
Result := Band.Page; if Assigned(Band) then
Result := Band.Page
else
Result:=Nil;
end; end;
procedure TFPReportElement.SaveDataToNames; procedure TFPReportElement.SaveDataToNames;