[oleg61rus]

Добрый день. Столкнулся с такой проблемой: я не знаю до начала работы программы сколько мне нужно объявить матриц. Ведь матрицы объявляются до начала работы программы в VAR и TYPE. Т.е. инициализируя их там я знаю сколько их будет в программе. А если мне надо 20, 30, или 1000 матриц объявить? Вроде для этого можно использовать динамическое программирование и в цикле создавать (new) и вводить значения переменных. А как это сделать с матрицами и как потом к ним обращаться?

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs;   type   TMatrix = array [0..2, 0..2] of Byte;     TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   arr_matrix: array of TMatrix;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); begin  SetLength(arr_matrix, 20); // 20, 30, или 1000  // матрица 0  arr_matrix[0][0][0]:=000;  arr_matrix[0][1][1]:=011;  // матрица 1  arr_matrix[1][0][0]:=100;  arr_matrix[1][1][1]:=111;  // матрица 2  arr_matrix[2][0][0]:=200;  arr_matrix[2][1][1]:=211; end;   end.