paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +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; I : Integer;
MasterD,DesignD : TFPReportDataDefinitionItem; MasterD,DesignD : TFPReportDataDefinitionItem;
DatasetD : TFPReportDatasetData; DatasetD : TFPReportDatasetData;
H : TFPReportDataHandler; H : TFPReportDataHandlerClass;
L : TFPList; L : TFPList;
P : TComponent; P : TComponent;
DDS,MDS : TDataset; DDS,MDS : TDataset;
@ -461,7 +461,7 @@ begin
DesignD:=DataDefinitions[i]; DesignD:=DataDefinitions[i];
if (DesignD.Master<>'') then if (DesignD.Master<>'') then
begin begin
H:=TFPCustomReportDataManager.GetTypeHandler(DesignD.DataType); H:=TFPCustomReportDataManager.GetTypeHandlerClass(DesignD.DataType);
MasterD:=DataDefinitions.FindDataByName(DesignD.Master); MasterD:=DataDefinitions.FindDataByName(DesignD.Master);
DDS:=(DesignD.RunReportDataItem.Data as TFPReportDatasetData).DataSet; DDS:=(DesignD.RunReportDataItem.Data as TFPReportDatasetData).DataSet;
MDS:=(MasterD.RunReportDataItem.Data as TFPReportDatasetData).DataSet; MDS:=(MasterD.RunReportDataItem.Data as TFPReportDatasetData).DataSet;