RES_GROUP_INSERT resGroup, newMember RES_GROUP_DELETE resGroup, member RES_GROUP_DELETE_ALL resGroup RES_GROUP_QUERY resGroup, object, _bIsMember |
regGroup | in | Odkaz na objekt typu Skupina objektov. |
newMember | in | Odkaz objekt, ktorý sa bude vkladať so Skupiny objektov. |
member | in | Odkaz na objekt, ktorý bude zo Skupiny objektov vyradený. |
object | in | Odkaz na objekt. |
_bIsMember | out | Identifikátor typu Bool. |
BOOL _bIsMember RES_GROUP_QUERY SK, SysTime, _bIsMember IF _bIsMember\VLD THEN IF _bIsMember THEN ; Objekt SysTime sa nachádza v skupine SK ; Vyradím ho zo skupiny RES_GROUP_DELETE SK, SysTime ELSE ; Objekt SysTime sa nenachádza v skupine SK ; Zaradím ho do skupiny RES_GROUP_INSERT SK, SysTime ENDIF ELSE ; chybné parametre ENDIF |