paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 21:18:14 +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;
begin
FreeAndNil(Phrases);
FreeAndNil(LoPhrases);
inherited Destroy;
end;
@ -734,6 +735,7 @@ begin
Clear;
if Parent<>nil then
Parent.RemoveChild(Self);
FreeAndNil(FChildNodes);
inherited Destroy;
end;

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

@ -13,7 +13,7 @@ uses
{$R *.res}
begin
Application.Title:='WikiSearchDemo';
Application.Title:='project1';
RequireDerivedFormResource := True;
Application.Initialize;
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';
MainGroupBox.Caption:='Result:';
FURLDataProvider:=TWikiIpHtmlDataProvider.Create(Self);
FURLDataProvider:=TWikiIpHtmlDataProvider.Create(nil);
ResultsIpHtmlPanel.DataProvider:=FURLDataProvider;
PageIpHtmlPanel.DataProvider:=FURLDataProvider;
FURLDataProvider.OnCanHandle:=@DataProviderCanHandle;
@ -176,6 +176,10 @@ end;
procedure TWikiSearchDemoForm.FormDestroy(Sender: TObject);
begin
// free pages before dataprovider
FreeAndNil(ResultsIpHtmlPanel);
FreeAndNil(PageIpHtmlPanel);
FreeAndNil(FURLDataProvider);
FreeAndNil(WikiHelp);
end;