IMetaHierarchyLevel.Attributes

Синтаксис

Attributes: IMetaAttributesSet;

Описание

Свойство Attributes возвращает набор атрибутов уровня иерархии.

Пример

Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором «OBJ_FC».

Sub Main;

Var

Mb: IMetabase;

Rubr: IRubricator;

Facts: IMetaDictionary;

i, j: Integer;

Hierarchy: IMetaHierarchy;

HLevels: IMetaHierarchyLevels;

HLev: IMetaHierarchyLevel;

Att: IMetaAttribute;

AttsSet: IMetaAttributesSet;

Begin

Mb := MetabaseClass.Active;

Rubr := MB.ItemById("OBJ_FC").Bind As IRubricator;

Facts := Rubr.Facts;

Hierarchy := Facts.DefaultHierarchy;

HLevels := Hierarchy.Levels;

For i := 0 To HLevels.Count - 1 Do

HLev := HLevels.Item(i);

Debug.WriteLine("Уровень " + i.ToString + " : " + HLev.Name);

AttsSet := HLev.Attributes;

For j := 0 To AttsSet.Count - 1 Do

Att := AttsSet.Item(j);

Debug.WriteLine("Атрибут уровня " + i.ToString + " : " + Att.Name);

End For;

End For;

End Sub Main;

После выполнения примера в окно консоли будет выведена информация о текущей иерархии базы данных временных рядов.

См. также:

IMetaHierarchyLevel