IMatrixModelIterator.Move

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

Sub UserProc;
Var
    M: Matrix[2];
    Mm: IMatrixModel;
    Iter: IMatrixModelIterator;
    I, J: Integer;
Begin
    Debug.WriteLine("Исходная матрица");
    For i := 0 To 10 Do
        For j := 0 To 10 Do
            M[i, j] := Math.RandBetweenI(0, 9);
        End For;
    End For;
    Mm := M As IMatrixModel;
    Iter := Mm.CreateModelIterator;
    Iter.Move(IteratorDirection.First);
    i := 0;
    While Iter.Valid Do
        i := i + 1;
        Debug.Write(Iter.Value + " ");
        Iter.Move(IteratorDirection.Next);
    End While;
End Sub UserProc;