paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix memleak when setting master-detail relations

Browse Source 
git-svn-id: trunk@38672 -
This commit is contained in:
michael 2018-04-03 18:31:07 +00:00
parent 3318703ece
commit 08cca012f6
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

@ -425,7 +425,7 @@ Var
I : Integer;
MasterD,DesignD : TFPReportDataDefinitionItem;
DatasetD : TFPReportDatasetData;
H : TFPReportDataHandler;
H : TFPReportDataHandlerClass;
L : TFPList;
P : TComponent;
DDS,MDS : TDataset;
@ -461,7 +461,7 @@ begin
DesignD:=DataDefinitions[i];
if (DesignD.Master<>'') then
begin
H:=TFPCustomReportDataManager.GetTypeHandler(DesignD.DataType);
H:=TFPCustomReportDataManager.GetTypeHandlerClass(DesignD.DataType);
MasterD:=DataDefinitions.FindDataByName(DesignD.Master);
DDS:=(DesignD.RunReportDataItem.Data as TFPReportDatasetData).DataSet;
MDS:=(MasterD.RunReportDataItem.Data as TFPReportDatasetData).DataSet;