IDimIterator.Element

Синтаксис

Element: Integer;

Описание

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

Пример

Sub Main;

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 Main;

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

См. также:

IDimIterator