IMatrixBuilder.CreateMatrix

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

Sub UserProc;
Var
    Result: IMatrix;
    ResultEx: IMatrixEx;
    Coord: IMatrixModelCoord;
    i, j: Integer;
Begin
    Result := MatrixBuilder.CreateMatrix(2);
    Coord := Result.CreateModelCoord;
    Coord.Item(0) := 0;
    Coord.Item(1) := 0;
    Result.Item(Coord) := "a";
    Coord.Item(0) := 0;
    Coord.Item(1) := 1;
    Result.Item(Coord) := "b";
    Coord.Item(0) := 0;
    Coord.Item(1) := 2;
    Result.Item(Coord) := "c";
    Coord.Item(0) := 1;
    Coord.Item(1) := 1;
    Result.Item(Coord) := "d";
    Debug.WriteLine("Полученная матрица:");
    For i := 0 To 1 Do
        For j := 0 To 2 Do
            Coord.Item(0) := i;
            Coord.Item(1) := j;
            If IsNull(Result.Item(Coord)) Then
                Debug.Write(" Null");
            Else
                Debug.Write("    " + Result.Item(Coord));
            End If;
        End For;
        Debug.WriteLine("");
    End For;
    ResultEx := Result As IMatrixEx;
    Debug.WriteLine("----------------");
    Debug.WriteLine("Тип матрицы: " + ResultEx.Type.ToString);
    Debug.WriteLine("Память, используемая матрицей: " + ResultEx.MemoryUsed.ToString + " байт");
    Debug.WriteLine("Память, зарезервированная матрицей: " + ResultEx.MemoryReserved.ToString + " байт");
End Sub UserProc;