Задача заключается в этом: создать двумерный массив случайных чисел и вывести его 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. В чем может быть проблема?