1 2 3 4 5 6 | // steal an object from the pool and assign its name IF NOT THIS^._groupIDPool.ListIsEmpty THEN pfb_groupid := _GroupIDFactory.Create(itfData := initData, eError => FBFError); IF pfb_groupid <> 0 THEN THIS^._groupIDs.AppendElem(pfb_groupid^); pfb_groupid^.Name := GroupId; |