paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed mem leak

Browse Source 
git-svn-id: trunk@9313 -
This commit is contained in:
mattias 2006-05-19 23:15:52 +00:00
parent 35df38220d
commit bd3901d53f
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/lazhelpintf.pas
View File

@ -485,6 +485,7 @@ type
THelpViewers = class
private
FItems: TFPList;
FDestroying: boolean;
function GetItems(Index: integer): THelpViewer;
public
constructor Create;
@ -1731,8 +1732,9 @@ end;
destructor THelpViewers.Destroy;
begin
FDestroying:=true;
Clear;
FItems.Free;
FreeAndNil(fItems);
inherited Destroy;
end;
@ -1743,9 +1745,12 @@ begin
i:=Count-1;
while (i>=0) do begin
if i<Count then begin
if Items[i].Owner=nil then
if Items[i].Owner=nil then begin
Items[i].Free;
FItems[i]:=nil;
if fItems=nil then exit;
end;
if i<Count then
FItems[i]:=nil;
end;
dec(i);
end;
@ -1754,7 +1759,10 @@ end;
function THelpViewers.Count: integer;
begin
Result:=FItems.Count;
if fItems<>nil then
Result:=FItems.Count
else
Result:=0;
end;
function THelpViewers.GetViewersSupportingMimeType(
@ -1778,6 +1786,7 @@ end;
procedure THelpViewers.UnregisterViewer(AHelpViewer: THelpViewer);
begin
if FDestroying then exit;
FItems.Remove(AHelpViewer);
end;