Item(Index: Integer): IMetaHierarchyLevel;
Index - индекс уровня иерархии в коллекции.
Свойство Item возвращает уровень из коллекции по индексу.
Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором OBJ_FC.
Добавьте ссылки на системные сборки: Cubes, Metabase, Rds.
Sub UserProc;
Var
Mb: Imetabase;
Rubr: IRubricator;
Facts: IMetaDictionary;
i: Integer;
Hierarchy: IMetaHierarchy;
HLevels: IMetaHierarchyLevels;
HLev: IMetaHierarchyLevel;
Begin
Mb := MetabaseClass.Active;
Rubr := MB.ItemById("OBJ_FC").Bind As IRubricator;
Facts := Rubr.Facts;
Hierarchy := Facts.DefaultHierarchy;
HLevels := Hierarchy.Levels;
Debug.WriteLine("Листьевой уровень: " + HLevels.Leaf.Name);
For i := 0 To HLevels.Count - 1 Do
HLev := HLevels.Item(i);
Debug.WriteLine("Уровень " + i.ToString + " : " + HLev.Name);
End For;
End Sub UserProc;
После выполнения примера в окно консоли будет выведена информация о текущей иерархии базы данных временных рядов.
См. также: