paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-08 09:01:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #33516

Browse Source 
git-svn-id: trunk@38627 -
This commit is contained in:
michael 2018-03-26 16:31:28 +00:00
parent 921b406c05
commit 31a354a3bc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/classes/collect.inc
View File

@ -304,7 +304,8 @@ destructor TCollection.Destroy;
begin
FUpdateCount:=1; // Prevent OnChange
try
DoClear;
if Assigned(FItems) then
DoClear;
Finally
FUpdateCount:=0;
end;