[Fazotron]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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?