SHPORA.net :: PDA

Login:
регистрация

Main
FAQ

гуманитарные науки
естественные науки
математические науки
технические науки
Search:
Title: | Body:

Заполнение таблицы случайными числами(очистка также только 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