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 |