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 UserProc;
Var
Mb: IMetabase;
CubeInst: ICubeInstance;
Dest: ICubeInstanceDestination;
Sels: IDimSelectionSet;
CubeExSet: ICubeExecuteSetup;
DimSetup: ICubeExecuteDimSetup;
Sel: IDimSelection;
i: Integer;
Begin
Mb := MetabaseClass.Active;
CubeInst := Mb.ItemById("FC_DEP").Open(Null) As ICubeInstance;
Dest := CubeInst.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 UserProc;
After executing the example the console window displays names of dimensions included in the default layout of the time series database.
See also: