[Fazotron]

Задача заключается в этом: создать двумерный массив случайных чисел и вывести его d StringGrid. Я сделал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var m,n,i,j :integer;
    a:  array of array of real;
begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;

Setlength(a,m,n);

for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(10);

for i:=1 to m do
for j:=1 to n do
StringGrid1.Ctlls[j-1,i-1]:=FloatToStr(a[i,j]);


end;

Но выдает ошибку цпу при нажатии на Button1. В чем может быть проблема?

[Aristarh Dark]

Примерно так надо:

Код:

const
  m = 5;
  n = 4;
var
  data: array of array of real;
  i,j:integer;
begin
  SetLength(data,m);
  for i:=Low(data) to High(data) do
    begin
      SetLength(data[i],n);
      for j:=Low(data[i]) to High(data[i]) do
        data[i,j]:=Random(10);
    end;
end;

[Fazotron]

a StringGrid?