SHPORA.net :: PDA | |
Main FAQ гуманитарные науки естественные науки математические науки технические науки Заполнение таблицы случайными числами(очистка также только stringgrid1.Cells[e-1,i-1]:=''; ) var i,e:integer; задание переменных. i-строки begin for i:=1 to stringgrid1.rowcount do для i=1 до последней строки for e:=1 to stringgrid1.colcount do для e=1 до последнего столбца stringgrid1.Cells[e-1,i-1]:=IntToStr(random(50)); заполняем ячеки случайными числами от 1-50 end; procedure TForm1.Button3Click(Sender: TObject); var e,i:integer; begin |