mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-04 18:20:34 +02:00
FpReport example: Fix a memory leak. Issue #40023, patch by Andreas F.
This commit is contained in:
parent
d50f9fbf53
commit
d6dce85b44
@ -124,6 +124,7 @@ begin
|
|||||||
FReport.RenderReport(P);
|
FReport.RenderReport(P);
|
||||||
ShowMessage('PDF created: '+P.FileName);
|
ShowMessage('PDF created: '+P.FileName);
|
||||||
finally
|
finally
|
||||||
|
P.Free;
|
||||||
ButtonSet(true);
|
ButtonSet(true);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user