перегружен стек

[Victor1963]

Здравствуйте, что мне сделать, что-бы увеличить объем массив, пишет, стек перегружен.

Mat:array[0..5, 0..10, 0..20, 0..613] of integer;
   
begin
 x_width:=Image1.Width;
 y_height:=Image1.Height;
 Image1.Canvas.Pen.Color:=clBlack;
 Image1.Canvas.Pen.Width:=1;
 Image1.Canvas.Brush.Style:=bsClear;


  Image1.Canvas.MoveTo(10,0);
  Image1.Canvas.LineTo(1147,633);

  

  for i:=Low(Mat) to High(Mat) do
  for j:=Low(Mat[i]) to High(Mat[i]) do
  for x:=Low((Mat[i])[r]) to High((Mat[i])[r]) do
  for y:=Low(((Mat[i])[r])[x]) to High(((Mat[i])[r])[x]) do
   Mat[i,j,x,y]:=0;

[BDA]

Откуда взялся индекс r?

[Victor1963]

Спасибо. исправил. но все равно не работает

Mat:array[0..180, 0..10, 0..20, 0..613] of integer;
    
begin
 x_width:=Image1.Width;
 y_height:=Image1.Height;
 Image1.Canvas.Pen.Color:=clBlack;
 Image1.Canvas.Pen.Width:=1;
 Image1.Canvas.Brush.Style:=bsClear;



  

  for i:=Low(Mat) to High(Mat) do
  for r:=Low(Mat[i]) to High(Mat[i]) do
  for x:=Low((Mat[i])[r]) to High((Mat[i])[r]) do
  for y:=Low(((Mat[i])[r])[x]) to High(((Mat[i])[r])[x]) do
   Mat[i,r,x,y]:=0;

[bulldog5293]

Спасибо. исправил. но все равно не работает

Эт ты кого благодарил?

Откуда взялся индекс r?

Так и не уточнил

[BDA]

Проверил у себя - и правда выдается ошибка. Посчитал количество требуемой памяти для этой матрицы 102687816 байт ~ 97 мегабайт (в настойках проекта посмотрел - максимальный размер стека задан 1048576 байт = 1 мегабайт). Когда объявил матрицу глобальной переменной, то ошибка исчезла.

bulldog5293, благодарил меня. А зачем уточнять-то про индекс? Это был намёк на несоответствие индексов в циклах.

[Poma][a]

Как вариант :
{$M 101711872}

[Victor1963]

Я не силен в прог., но поставил переменную в другие места, показывает перегрузку, поправте пожалуйста. Заранее благодарю.

private
{ Private declarations }
Mat:array[0..180,0..10,0..1118,0..613] of integer;
public
{ Public declarations }
{Mat:array[0..180,0..10,0..1118,0..613] of integer;}
end;

var
Form1: TForm1;
{Mat:array[0..180,0..10,0..1118,0..613] of integer;}
implementation

[Victor1963]

Сделал так, все равно показывает перегрузку.
private
{ Private declarations }


public
{ Public declarations }

end;
type
TDynArr=array of integer;
var
Mat1:TDynArr;
x,y:integer;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);

var
x,y,a,b,f,q,i,r,i1,r1,m,T,J,count,s ize:integer;
RMax, x_width, y_height: integer;
OperBegin, OperEnd: TTimeStamp;
Total: LongWord;
Teta,Teta1: Double;
ArPoint: array of Tpoint;

Mat1: array [0..1118, 0..613] of integer;


begin

for x:=Low(Mat1) to High(Mat1) do
for y:=Low(Mat1[x]) to High(Mat1[x]) do
Mat1[x,y]:=0;

[BDA]

Вам точно нужен такой большой массив? Да еще и статический. Вот при таком объявлении у меня не было ошибки:

var
  Form1: TForm1;
  Mat: array[0..180,0..10,0..1118,0..613] of integer;

Таким образом у Вас будет всего лишь один такой массив. Может быть расскажите немного о решаемой задаче?
Попробуйте (не проверял):

procedure TForm1.ButtonClick(Sender: TObject);
var
  mat: array of array of integer;


begin
  setlength(mat, 1119, 614);
  //
  setlength(mat, 0, 0);
end;

[Serge_Bliznykov]

вместо

procedure TForm1.ButtonClick(Sender: TObject);

var
x,y,a,b,f,q,i,r,i1,r1,m,T,J,count,s ize:integer;
RMax, x_width, y_height: integer;
OperBegin, OperEnd: TTimeStamp;
Total: LongWord;
Teta,Teta1: Double;
ArPoint: array of Tpoint;

Mat1: array [0..1118, 0..613] of integer;


begin

for x:=Low(Mat1) to High(Mat1) do
for y:=Low(Mat1[x]) to High(Mat1[x]) do
Mat1[x,y]:=0;

напишите:

var
   Mat1: array [0..1118, 0..613] of integer;

procedure TForm1.ButtonClick(Sender: TObject);

var
x,y,a,b,f,q,i,r,i1,r1,m,T,J,count,s ize:integer;
RMax, x_width, y_height: integer;
OperBegin, OperEnd: TTimeStamp;
Total: LongWord;
Teta,Teta1: Double;
ArPoint: array of Tpoint;



begin

for x:=Low(Mat1) to High(Mat1) do
for y:=Low(Mat1[x]) to High(Mat1[x]) do
Mat1[x,y]:=0;

тем самым Вы сделаете переменную Mat1 глобальной и она будет вынесена из стека, где задаются все локальные переменные...


p.s. я не понимаю, зачем Вам такие огромные массивы и не понимаю, что Вы делаете, поэтому не уверен, что мой совет Вам поможет (в статегическом плане)...