Attributes: IABACAttributeInstances;
Свойство Attributes возвращает системные и пользовательские атрибуты групп пользователей.
Свойство доступно только для чтения.
Для работы с коллекцией атрибутов групп пользователей используйте свойство IMetabaseGroups.Attributes.
Для выполнения примера добавьте ссылки на системные сборки: ABAC, Metabase.
Sub UserProc;
Var
MB: IMetabase;
Group: IMetabaseGroup;
Groups: IMetabaseGroups;
Attr: IABACAttributeInstance;
i, Count: Integer;
Begin
MB := MetabaseClass.Active;
Groups := MB.Security.Groups;
Group := Groups.Item(0);
Count := Group.Attributes.Count;
For i := 0 To Count-1 Do
Attr := Group.Attributes.Item(i);
Debug.WriteLine(Attr.Name(MB.CurrentLocale));
End For;
End Sub UserProc;
В результате выполнения примера в консоль будут выведены наименования всех системных и пользовательских атрибутов групп пользователей.
См. также: