[JekaJ]

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

[freedomman]

Код:

procedure TForm1.Btn2Click(Sender: TObject);
Var
Sum : Integer;
begin
For i := 0 To SG.ColCount-1 do 
begin
Sum:=0;
  For j := 0 To SG.RowCount-1 do
  if StrToInt(SG.Cells[i,j])>0
    then Sum := Sum + StrToInt(SG.Cells[i,j]);
Memo1.Lines.Add('Сумма положительных элементов '+inttostr(i)+'-ой строки = '+inttostr(sum) );
end;
end;

[JekaJ]

Спасибо, помогло.