Здравствуйте, помогите пожалуйста с программкой. Задача: матрица 5х6. Рандомом заношу значения. Нужно посчитать сумму значений ячеек. И вроде все должно работать, но именно с процедурой подсчета не работает, т.е. код компилится, но результат не заносится в мемо или эдит.
Код:
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. Вообще нужно реализовать так чтобы считалась сумма всех положительных элементов каждой строки и заносились в мемо отдельно