mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 16:09:27 +02:00
* Fix bug #33399, RemovePage does not free page
git-svn-id: trunk@38468 -
This commit is contained in:
parent
fbd974b0d8
commit
ad409edb30
@ -7813,6 +7813,9 @@ end;
|
|||||||
|
|
||||||
procedure TFPCustomReport.Clear;
|
procedure TFPCustomReport.Clear;
|
||||||
|
|
||||||
|
Var
|
||||||
|
P : TFPReportCustomPage;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
// Variables
|
// Variables
|
||||||
FRTCurPageIdx := -1;
|
FRTCurPageIdx := -1;
|
||||||
@ -7825,7 +7828,11 @@ begin
|
|||||||
if Assigned(FPages) then
|
if Assigned(FPages) then
|
||||||
begin
|
begin
|
||||||
While PageCount>0 do
|
While PageCount>0 do
|
||||||
RemovePage(Pages[FPages.Count-1]);
|
begin
|
||||||
|
P:=Pages[PageCount-1];
|
||||||
|
RemovePage(P);
|
||||||
|
FreeAndNil(P);
|
||||||
|
end;
|
||||||
FPages.Clear;
|
FPages.Clear;
|
||||||
end;
|
end;
|
||||||
ClearReferenceList;
|
ClearReferenceList;
|
||||||
|
Loading…
Reference in New Issue
Block a user