IDimHierarchies.Count

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

Sub UserProc;
Var
    Mb: IMetabase;
    OriginalModelObj: IMetabaseObject;
    OriginalModel: IDimensionModel;
    Hierarchies: IDimHierarchies;
    i: Integer;
    Hierarchy: IDimHierarchy;
Begin
    Mb := MetabaseClass.Active;
    OriginalModelObj := Mb.ItemById("TB_BASE").Edit;
    OriginalModel := OriginalModelObj As IDimensionModel;
    Hierarchies := OriginalModel.Hierarchies;
    Debug.WriteLine("Иерархии справочника '" + OriginalModelObj.Name + "':");
    For i := 0 To Hierarchies.Count - 1 Do
        Hierarchy := Hierarchies.Item(i);
        Debug.WriteLine(" Наименование: " + Hierarchy.Name);
        Debug.WriteLine(" Идентификатор: " + Hierarchy.Id);
        Debug.WriteLine(" Ключ: " + Hierarchy.Key.ToString);
        Debug.WriteLine("------");
    End For;
End Sub UserProc;