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