IDimIterator.Element

Синтаксис

Element: Integer;

Описание

Свойство Element возвращает индекс элемента справочника, на котором установлен курсор итератора.

Пример

Sub UserProc;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Elem: IDimElements;
    ElemArr: IDimElementArray;
    Iter: IDimIterator;
    i: Integer;
Begin
    MB:=MetabaseClass.Active;
    Dimen:=MB.ItemById("D_TO").Open(Null) As IDimInstance;
    Elem:=Dimen.Elements;
    ElemArr:=Elem.Children(10);
    Iter:=ElemArr.Iterator;
    For i:=0 To Math.RandBetweenI(0,Iter.DimElementArray.Count) Do
        Iter.Next;
    End For;
    i:=Iter.Element;
End Sub UserProc;

После выполнения примера будет создан итератор, на базе массива элементов «ElemArr». Курсор будет установлен на случайный элемент и в переменной «i» будет содержаться индекс элемента справочника, которому соответствует номер элемента итератора.

См. также:

IDimIterator