IDimElementArray.Iterator

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Elem: IDimElements;
    ElemArr: IDimElementArray;
    Iter: IDimIterator;
Begin
    MB:=MetabaseClass.Active;
    Dimen:=MB.ItemById("D_TO").Open(Null) As IDimInstance;
    Elem:=Dimen.Elements;
    ElemArr:=Elem.Children(10);
    Iter:=ElemArr.Iterator;
End Sub UserProc;