ICubeExecuteSetup.Count

Syntax

Count: Integer;

The Count property returns the number of cube calculation parameters.

Executing the example requires that the repository contains a time series database with the FC_DEP identifier.

Sub Main;

Var

Mb: IMetabase;

Rubricator: IMetabaseObject;

Cub: ICubeInstance;

Dest: ICubeInstanceDestination;

Sels: IDimSelectionSet;

CubeExSet: ICubeExecuteSetup;

i: Integer;

DimSetup: ICubeExecuteDimSetup;

Sel: IDimSelection;

Begin

Mb := MetabaseClass.Active;

Rubricator := Mb.ItemById("FC_DEP").Bind;

Cub := Rubricator.Open(Null) As ICubeInstance;

Dest := Cub.Destinations.DefaultDestination;

Sels := Dest.CreateDimSelectionSet;

CubeExSet := Sels As ICubeExecuteSetup;

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

DimSetup := CubeExSet.Item(i);

Sel := DimSetup.Selection;

Debug.WriteLine(Sel.Dimension.Name);

End For;

End Sub Main;

After executing the example the console window displays names of dimensions included in the default layout of the time series database.