paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 02:39:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

improved helpintf freeing

Browse Source 
git-svn-id: trunk@8307 -
This commit is contained in:
mattias 2005-12-13 23:30:41 +00:00
parent c9d605f092
commit 08eb2940aa
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ideintf/helpintf.pas
View File

@ -1880,7 +1880,14 @@ procedure THelpViewers.Clear;
var var
i: Integer; i: Integer;
begin begin
for i:=0 to Count-1 do Items[Count-1].Free; i:=Count-1;
while (i>=0) do begin
if i<Count then begin
Items[i].Free;
FItems[i]:=nil;
end;
dec(i);
end;
FItems.Clear; FItems.Clear;
end; end;