paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 12:37:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed memleak

Browse Source 
git-svn-id: trunk@6587 -
This commit is contained in:
vincents 2005-01-14 14:53:46 +00:00
parent c352ee72fe
commit 070a6c6939
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/helpoptions.pas
View File

@ -284,7 +284,6 @@ var
begin
try
XMLConfig:=TXMLConfig.Create(FFileName);
Storage:=nil;
try
FileVersion:=XMLConfig.GetValue('HelpOptions/Version/Value',0);
if (FileVersion<>0) and (FileVersion<HelpOptionsVersion) then
@ -292,17 +291,24 @@ begin
if HelpViewers<>nil then begin
Storage:=TXMLOptionsStorage.Create(XMLConfig,'Viewers');
HelpViewers.Load(Storage);
try
HelpViewers.Load(Storage);
finally
FreeAndNil(Storage);
end;
end;
if HelpDatabases<>nil then begin
Storage:=TXMLOptionsStorage.Create(XMLConfig,'Databases');
HelpDatabases.Load(Storage);
try
HelpDatabases.Load(Storage);
finally
FreeAndNil(Storage);
end;
end;
finally
XMLConfig.Free;
Storage.Free;
end;
except
on E: Exception do begin