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

* Parent must free children (bug ID 33357)

Browse Source 
git-svn-id: trunk@38458 -
This commit is contained in:
michael 2018-03-08 16:47:13 +00:00
parent 68be282507
commit 98b48ccded
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2878,7 +2878,6 @@ begin
FExpression:=aExpr;
DataType:=aType;
ResetType:=aResetType;
ResetValueExpression:=aResetValueExpression;
end;
end;
@ -6780,15 +6779,18 @@ begin
end;
destructor TFPReportElementWithChildren.Destroy;
//var
// i: integer;
var
i: integer;
begin
if Assigned(FChildren) then
begin
// for i := 0 to FChildren.Count - 1 do
// Child[i].FParent := nil;
begin
for i := 0 to FChildren.Count - 1 do
begin
Child[i].FParent := nil;
Child[i].Free;
end;
FreeAndNil(FChildren);
end;
end;
inherited Destroy;
end;
@ -7383,6 +7385,7 @@ procedure TFPCustomReport.EmptyRTObjects;
begin
while RTObjects.Count > 0 do
begin
TFPReportElement(RTObjects[0]).Free;
RTObjects.Delete(0);
end;