[JekaJ]

Здравствуйте, помогите пожалуйста с программкой. Задача: матрица 5х6. Рандомом заношу значения. Нужно посчитать сумму значений ячеек. И вроде все должно работать, но именно с процедурой подсчета не работает, т.е. код компилится, но результат не заносится в мемо или эдит.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Btn2Click(Sender: TObject); Var Sum : Integer; begin Sum:=0; For i := 1 To SG.ColCount do   For j := 1 To SG.RowCount do   if StrToInt(SG.Cells[i,j])>0     then Sum := Sum + StrToInt(SG.Cells[i,j]); Edit1.Text := IntToStr(Sum); Memo1.Lines.Add('IntToStr(Sum)'); end;

ps. i, j - глобально в интежере.
pps. Вообще нужно реализовать так чтобы считалась сумма всех положительных элементов каждой строки и заносились в мемо отдельно