IAccessAttributeValue.BitCount

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    AOS: IAccessObjectSecurity;
    Iterator: IAccessElementsIterator;
    Element: IAccessElement;
    AttributeValue: IAccessAttributeValue;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    MDesc := MB.ItemById("DICT_1");
    AOS := MDesc.GetSecurity;
    Iterator := AOS.GetElements;
    Iterator.Next;
    Element := Iterator.Current;
    AttributeValue := Element.AttributeAccess(AccessElementAttributes.Read);
    Debug.WriteLine("Кол-во субъектов безопасности: " + AttributeValue.BitCount.ToString);
    For i := 0 To AttributeValue.BitCount Do
        Debug.WriteLine(AttributeValue.Value(i));
    End For;
End Sub UserProc;