Name(Element: Integer): String;
Element. Номер элемента.
Свойство Name возвращает наименование элемента, индекс которого передается посредством параметра Element.
Для выполнения примера предполагается наличие в контейнере моделирования модели. В модели содержаться входные переменные с дополнительными измерениями.
Sub Main;
Var
MB: IMetabase;
Model: IMsModel;
TransVar: IMsFormulaTransformVariable;
SliceTree: IMsFormulaTransformSlicesTree;
i: Integer;
Begin
MB := MetabaseClass.Active;
Model := MB.ItemByIdNamespace("NEW_NONLINREG", MB.ItemById("KONT_MODEL").Key).Bind As IMsModel;
TransVar := Model.Transform.Inputs.Item(0);
SliceTree := TransVar.SlicesTree(TransVar);
For i := 0 To SliceTree.ChildrenCount(0) - 1 Do
Debug.WriteLine(SliceTree.Name(SliceTree.Child(0, i)));
If SliceTree.ChildrenCount(SliceTree.Child(0, i)) <> 0 Then
DebugChildren(SliceTree.Child(0, i), SliceTree, " ");
End If;
End For;
End Sub Main;
Sub DebugChildren(Element: Integer; SliceTree: IMsFormulaTransformSlicesTree; s: String);
Var
j: Integer;
Begin
For j := 0 To SliceTree.ChildrenCount(Element) - 1 Do
Debug.WriteLine(s + SliceTree.Name(SliceTree.Child(Element, j)));
If SliceTree.ChildrenCount(SliceTree.Child(Element, j)) <> 0 Then
DebugChildren(SliceTree.Child(Element, j), SliceTree, " ");
End If;
End For;
End Sub DebugChildren;
После выполнения примера осуществляется рекурсивный просмотр дерева срезов первой входной переменной модели. В консоль будут выведены наименования всех элементов дерева.
См. также: