1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | // Will try to allocate a new EdgeId with the given name METHOD allocEdgetoGroupId : REFERENCE TO FB_RemoteEdge VAR_IN_OUT EdgeId : WSTRING; itfGroupID : IGroupID; END_VAR VAR_OUTPUT eError : ERROR; VAR _itfElement : IElement; _itfElement := THIS^._edgePool.HeadElem.RemoveElem(); //Remove it, but now it is not part of a group anymore IF __QUERYPOINTER( _itfElement, _fb_RemoteEdge ) THEN _fb_RemoteEdge^( itfGroupID := itfGroupID, Name := EdgeId ); allocEdgetoGroupId REF= _fb_RemoteEdge^; END_IF END_IF |