Помогите.Срочно нужно

[irishkaKuzn]

не выводит массив в stringgrid. а может и не заполняет. подскажите где ошибка.

implementation
{$R *.dfm}
var A:array of array of integer;
M:array of integer;
colst,rowstr,i,j:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
rowstr:=strtoint(Edit1.Text);
colst:=strtoint(Edit2.Text);
StringGrid1.ColCount:=colst;
StringGrid2.RowCount:=rowstr;
StringGrid1.RowCount:=rowstr;
Randomize;
SetLength(A, colst, rowstr);
for i := 0 to Rowstr-1 do
for j := 0 to Colst-1 do
begin
A[i,j]:=random(1000);
//randomize;
StringGrid1.Cells[j,i]:=inttostr(A[i,j]);
end;
end;
end.

[doktor255]

irishkaKuzn Правила раздела
P.S. Всем нужна помощь, и всем срочно. Но это не повод давать такие названия темам.

[type_Oleg]

Работает, если
- убрать StringGrid2.RowCount:=rowstr; - или есть еще один СтрингГрид?
- разобраться, где Col, где Row в SetLength. Потому что при квадратных матрицах (Col=Row) работает.

PS Кстати, randomize; не обязательно в цикл. Лучше вне. Или вообще в раздел финализации.

[Stilet]

Не подтверждаю. Код работает - проверил.
Если не выводит, значит на кнопку1 не назначена в OnClick эта процедура.

Кстати, randomize; не обязательно в цикл. Лучше вне.

А он и так там вне цикла

[type_Oleg]

Сообщение от Stilet

А он и так там вне цикла

А .. да. Я Randomize не заметил, я только randomize увидел.

И еще - все эти colst,rowstr,i,j зачем объявлять как глобальные, можно же внутри процедуры.

[Человек_Борща]

И еще - все эти colst,rowstr,i,j зачем объявлять как глобальные, можно же внутри процедуры.

Студент консольный это.