IMetaMembersTree.CurrentDepth

Синтаксис

CurrentDepth: Integer;

Описание

Свойство CurrentDepth возвращает число уровней иерархии от корня справочника.

Пример

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

Sub Main;

Var

Mb: Imetabase;

Rubr: IMetabaseObject;

RubrInst: IRubricatorInstance;

Facts: IMetaDictionaryInstance;

Hierarchy: IMetaHierarchy;

HInstance: IMetaHierarchyInstance;

Tree: IMetaMembersTree;

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);

Tree := HInstance.GetRootTree;

Tree.Reset;

While Not Tree.Eof Do

If Tree.CurrentDepth = 0 Then

Debug.WriteLine(Tree.Current.Name);

End If;

Tree.Next;

End While;

End Sub Main;

После выполнения примера в окно консоли будут выведены наименования всех корневых элементов первого уровня иерархии.

См. также:

IMetaMembersTree