ItemID: Integer;
Свойство ItemID возвращает индекс элемента, на котором в данный момент находится курсор итератора.
Sub Main;
Var
M: Matrix[1];
Mm: IMatrix;
Iter: IMatrixIterator;
i: Integer;
Begin
For i := 0 To 10 Do
M[i] := i * 2;
End For;
Mm := M As IMatrix;
Iter := Mm.CreateIterator;
Iter.Move(IteratorDirection.First);
While Iter.Valid Do
If (Iter.ItemID Mod 2) = 0 Then
Debug.WriteLine("Значение " + Iter.ItemID.ToString + ": " + Iter.Value);
End If;
Iter.Move(IteratorDirection.Next);
End While;
End Sub Main;
После выполнения примера будет создана и заполнена значениями матрица. На базе данной матрицы будет получен итератор и в цикле выведены значения элементов, имеющих четный индекс в матрице.
См.также: