IMatrixIterator.ItemID

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

Sub UserProc;
    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 UserProc;