Re: Using Access Types for a simple solution

[Aurele <aurele.vitali@gmail.com>]

Maybe try something like this (just a suggestion):

procedure Matric_Demo is

  type Matrix is record
    x : integer := 0;
    y : integer := 0;
    z : integer := 0;
    t : integer := 0;
        :
  end record;
  type Matrix_Ptr is access all Matrix;
  
  type Grid is array ( 1..Integer'last, 1..integer'last ) of Matrix_Ptr;
  type Grid_Ptr is access all Grid;
  
  My_Matrix_Ptr : Matrix_Ptr := new Matrix;

  My_Grid_Ptr_1 : Grid_Ptr := new Grid; 
  My_Grid_Ptr_2 : Grid_Ptr := new Grid; 
     :
  My_Array      : array ( 1 .. integer'last ) of Grid_Ptr; 
  
begin

  My_Matrix_Ptr.x := 1;
  My_Matrix_Ptr.y := 2;
  My_Matrix_Ptr.y := 3;
  My_Matrix_Ptr.y := 4;
     :
  My_Grid_Ptr_1( 1, 1 ) := My_Matrix_Ptr;
     :
  My_Array( 1 ) := My_Grid_Ptr_1;
     :
end Matric_Demo;