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

* Fixed mem-leak

Browse Source 
git-svn-id: trunk@16824 -
This commit is contained in:
joost 2011-01-28 09:06:46 +00:00
parent 27bb39a1ca
commit 9191eb35a9
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-web/src/base/webpage.pp
View File

@ -84,6 +84,7 @@ type
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
property ContentProducerList: TFPList read GetContentProducerList; property ContentProducerList: TFPList read GetContentProducerList;
public public
destructor Destroy; override;
function ContentProducerCount: integer; function ContentProducerCount: integer;
function ProduceContent : string; function ProduceContent : string;
@ -261,6 +262,13 @@ begin
Proc(ContentProducers[i]); Proc(ContentProducers[i]);
end; end;
destructor TWebPage.Destroy;
begin
if assigned(FContentProducers) then
FreeAndNil(FContentProducers);
inherited Destroy;
end;
function TWebPage.ContentProducerCount: integer; function TWebPage.ContentProducerCount: integer;
begin begin
if assigned(FContentProducers) then if assigned(FContentProducers) then