paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 20:15:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

wiki test: fixed mem leak

Browse Source 
git-svn-id: trunk@35746 -
This commit is contained in:
mattias 2012-03-05 19:08:22 +00:00
parent e8ec9a55e4
commit eb5ac27d76
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/wiki/test/wikihelpmanager.pas
View File

@ -543,6 +543,7 @@ end;
destructor TWikiHelpQuery.Destroy; destructor TWikiHelpQuery.Destroy;
begin begin
FreeAndNil(Phrases); FreeAndNil(Phrases);
FreeAndNil(LoPhrases);
inherited Destroy; inherited Destroy;
end; end;
@ -734,6 +735,7 @@ begin
Clear; Clear;
if Parent<>nil then if Parent<>nil then
Parent.RemoveChild(Self); Parent.RemoveChild(Self);
FreeAndNil(FChildNodes);
inherited Destroy; inherited Destroy;
end; end;

2
components/wiki/test/wikisearchdemo.lpr
View File

@ -13,7 +13,7 @@ uses
{$R *.res} {$R *.res}
begin begin
Application.Title:='WikiSearchDemo'; Application.Title:='project1';
RequireDerivedFormResource := True; RequireDerivedFormResource := True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TWikiSearchDemoForm, WikiSearchDemoForm); Application.CreateForm(TWikiSearchDemoForm, WikiSearchDemoForm);

6
components/wiki/test/wikisearchmain.pas
View File

@ -104,7 +104,7 @@ begin
LanguagesEdit.Hint:='Empty for only original/untranslated pages, "de" to include german pages, "-,de" for german pages only'; LanguagesEdit.Hint:='Empty for only original/untranslated pages, "de" to include german pages, "-,de" for german pages only';
MainGroupBox.Caption:='Result:'; MainGroupBox.Caption:='Result:';
FURLDataProvider:=TWikiIpHtmlDataProvider.Create(Self); FURLDataProvider:=TWikiIpHtmlDataProvider.Create(nil);
ResultsIpHtmlPanel.DataProvider:=FURLDataProvider; ResultsIpHtmlPanel.DataProvider:=FURLDataProvider;
PageIpHtmlPanel.DataProvider:=FURLDataProvider; PageIpHtmlPanel.DataProvider:=FURLDataProvider;
FURLDataProvider.OnCanHandle:=@DataProviderCanHandle; FURLDataProvider.OnCanHandle:=@DataProviderCanHandle;
@ -176,6 +176,10 @@ end;
procedure TWikiSearchDemoForm.FormDestroy(Sender: TObject); procedure TWikiSearchDemoForm.FormDestroy(Sender: TObject);
begin begin
// free pages before dataprovider
FreeAndNil(ResultsIpHtmlPanel);
FreeAndNil(PageIpHtmlPanel);
FreeAndNil(FURLDataProvider);
FreeAndNil(WikiHelp); FreeAndNil(WikiHelp);
end; end;