Attributes: IABACAttributeInstances;
Свойство Attributes возвращает системные и пользовательские атрибуты объекта репозитория.
Свойство доступно только для чтения.
Для выполнения примера необходимо наличие объекта репозитория с идентификатором «OBJ_ATTR».
Добавьте ссылки на системные сборки: ABAC, Metabase.
Sub UserProc;
Var
MB: IMetabase;
MDesc: IMetabaseObjectDescriptor;
Attr: IABACAttributeInstances;
MDescr: IMetabaseObjectDescriptors;
i, Count: Integer;
Begin
MB := MetabaseClass.Active;
MDesc := Mb.ItemById("OBJ_ATTR");
Attr := MDesc.Attributes;
Count := Attr.Count;
For i := 0 To Count-1 Do
Debug.WriteLine(Attr.Item(i).Name(MB.CurrentLocale));
End For;
End Sub UserProc;
В результате выполнения примера в консоль будут выведены наименования системных и пользовательских атрибутов заданного объекта репозитория.
См. также: