MemoryLeak: ppDevice.pas:TppPublisher.AddPageToCache

rbuser

ppDevice.pas:

...

procedure TppPublisher.AddPageToCache(aPage: TppPage);
...
begin
...
liIndex := FPageCache.IndexOf(lsPage);

if liIndex <> -1 then
begin
{+}{#NB}// Fix Memory Leak:
lPage := Pages[liIndex];
FPageCache.Delete(liIndex);
lPage.Free;
{+.}
end;

lPage := TppPage.Create(nil);
...



--- posted by geoForum on http://delphi.newswhat.com

nardmoseley

Thanks for providing this information. Your recommendation will be included
in the next maintenance release.


--
Nard Moseley
Digital Metaphors
www.digital-metaphors.com