Append(Source: IAccessControlList);
Source. Source object access control elements.
The Append method adds an access control element from another list.
Executing the example requires that the repository contains an object with the OBJ1 and OBJ2 identifiers.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
ObjDesc: IMetabaseObjectDescriptor;
ObjDesc2: IMetabaseObjectDescriptor;
SecDesc: ISecurityDescriptor;
SecDesc2: ISecurityDescriptor;
AcessCL: IAccessControlList;
AcessCL2: IAccessControlList;
Begin
MB:=MetabaseClass.Active;
ObjDesc:=MB.ItemById("OBJ1");
SecDesc:=ObjDesc.SecurityDescriptor;
SecDesc.Edit;
AcessCL:=SecDesc.Acl;
ObjDesc2:=MB.ItemById("OBJ2");
SecDesc2:=ObjDesc2.SecurityDescriptor;
AcessCL2:=SecDesc2.Acl;
AcessCL.Append(AcessCL2);
SecDesc.Apply(True);
End Sub UserProc;
After executing the example the access control elements OBJ1 are added with the access control objects OBJ2.
See also: