paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 11:09:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* StartRender/EndRender for bug ID #0033496 (change to class handler to avoid memleak)

Browse Source 
git-svn-id: trunk@38630 -
This commit is contained in:
michael 2018-03-27 07:56:00 +00:00
parent 3adbab7855
commit 436cd9efb3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-report/src/fpreportdata.pp
View File

@ -403,7 +403,7 @@ procedure TFPCustomReportDataManager.EndRender;
Var
I : integer;
D : TFPReportDataDefinitionItem;
H : TFPReportDataHandler;
H : TFPReportDataHandlerClass;
begin
// Create all datasets
@ -412,7 +412,7 @@ begin
D:=DataDefinitions[i];
if Assigned(D.RunReportData) then
begin
H:=TFPCustomReportDataManager.GetTypeHandler(D.DataType);
H:=TFPCustomReportDataManager.GetTypeHandlerClass(D.DataType);
H.EndRender(D.RunReportData.DataSet);
end;
end;