IMetaMember.Attributes

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

Sub UserProc;
Var
    Mb: Imetabase;
    Rubr: IMetabaseObject;
    RubrInst: IRubricatorInstance;
    Facts: IMetaDictionaryInstance;
    Hierarchy: IMetaHierarchy;
    HInstance: IMetaHierarchyInstance;
    Members: IMetaMembers;
    Mem: IMetaMember;
    i: Integer;
Begin
    Mb := MetabaseClass.Active;
    Rubr := MB.ItemById("OBJ_FC").Edit;
    RubrInst := Rubr.Open(Null) As IRubricatorInstance;
    Facts := RubrInst.GetDictionary(RubricatorDictionary.Facts);
    Hierarchy := Facts.Dictionary.DefaultHierarchy;
    HInstance := Facts.OpenHierarchy(Hierarchy);
    Members := HInstance.GetRootMembers;
    Members.Reset;
    While Not Members.Eof Do
        Mem := Members.Current;
        Debug.WriteLine("Элемент: " + Mem.Name);
        For i := 0 To Mem.Attributes.Count - 1 Do
            Debug.WriteLine("Атрибут: " + Mem.Attributes.Item(i).Name);
        End For;
        Members.Next;
        Debug.WriteLine("----");
    End While;
End Sub UserProc;