paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #25049

Browse Source 
git-svn-id: trunk@26721 -
This commit is contained in:
michael 2014-02-08 11:39:31 +00:00
parent ddda356ee8
commit 68429834a7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,7 +33,6 @@ begin
begin begin
If FCollection<>Nil then FCollection.RemoveItem(Self); If FCollection<>Nil then FCollection.RemoveItem(Self);
if Value<>Nil then Value.InsertItem(Self); if Value<>Nil then Value.InsertItem(Self);
FCollection:=Value;
end; end;
end; end;
@ -203,6 +202,7 @@ begin
If Not(Item Is FitemClass) then If Not(Item Is FitemClass) then
exit; exit;
FItems.add(Pointer(Item)); FItems.add(Pointer(Item));
Item.FCollection:=Self;
Item.FID:=FNextID; Item.FID:=FNextID;
inc(FNextID); inc(FNextID);
SetItemName(Item); SetItemName(Item);