RootChildren: ICustomDimTreeChildren;
Свойство RootChildren возвращает список корневых элементов дерева.
Для выполнения примера предполагается наличие в репозитории стандартного куба с идентификатором "CUBE_1".
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Cube: IStandardCube;
CustDim: ICustomDimension;
CustDimTree: ICustomDimTree;
TreeChild: ICustomDimTreeChildren;
v: Variant;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("CUBE_1").Edit;
Cube := MObj As IStandardCube;
CustDim := Cube.FactDimension.Dimension As ICustomDimension;
CustDimTree := CustDim.Tree;
TreeChild := CustDimTree.RootChildren;
v := TreeChild.Item(TreeChild.Count - 1);
CustDimTree.Remove(v);
MObj.Save;
End Sub Main;
После выполнения примера будет удален последний корневой элемент измерения фактов.
См. также: