Next: Boolean;
Метод Next осуществляет переход на следующий элемент итератора и возвращает True, если возможен дальнейший переход в итераторе. Если курсор в итераторе установится на последнюю запись - метод вернет False. Первый вызов осуществляет переход на первый элемент.
Sub Main;
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;
Iter.First;
While Iter.Next Do
Debug.WriteLine(Elem.Name(Iter.Element));
End While;
End Sub Main;
После выполнения примера будет создан итератор на базе массива элементов «ElemArr». При проходе по элементам итератора, в консоль среды разработки будут выводиться наименования соответствующих элементов справочника.
См. также: