我的任务
用从 [FROM, TO] 中抽取的随机数填充给定的矩阵/“stringgrids” M1 和 M2,其中 FROM 和 TO 应从给定的编辑字段中读取。
我正在努力在用户给出的值之间生成随机数。这是我所拥有的:
procedure FillGridRandom(var S:TStringGrid);
var
i ,j :integer; //local variables
A,B:array of array of integer;
val1,val2 :integer;
begin
val1 := StrToInt(Form1.Edit1.Text);
val2 := StrToInt(Form1.Edit2.Text);
setlength(A,10,10);
setlength(B,10,8);
for i := 0 to s.colcount do begin
for j := 0 to s.rowcount do begin
A[i][j]:= random;
end;
end;
end;