Перемножение столбцов в StringGrid

[artemavd]

Доброе утро! Мне нужно построчно умножить значения в столбце В на соответствующее ему значение в столбце А и записать результат в столбец В. Например, есть такие записи:
КОЛ_ВО ЦЕНА
1 300
2 200
4 500
после перемножения должно получиться так:
КОЛ-ВО ЦЕНА
1 300
2 400
4 2000
пытался как-то так цикл записать:

procedure TForm1.btn1Click(Sender: TObject);
var
  col,row: Integer;
begin
  for row:=2 to Form1.RzStringGrid1.RowCount - 1 do
  begin
   Form1.RzStringGrid1.Cells[2,row]:=IntToStr(StrToInt(Form1.RzStringGrid1.Cells[2,row])*StrToInt(Form1.RzStringGrid1.Cells[1,row]));
  end;
end;

но то работает, то нет, хз, вообщем неправильный код. Подскажите как надо. Заранее спасибо.

[Баламут]

Опять не выспался? Код верный. Видимо просто нужно обратить внимание на содержимое ячеек. Проверь их содержимое перед умножением.

[artemavd]

Да не то, чтобы не выспался, просто не кодил нормально давно . ДР же было Проверку на пустоту? Ну, написал так:

procedure TForm1.btn1Click(Sender: TObject);
var
  col,row: Integer;
begin
  for row:=2 to Form1.RzStringGrid1.RowCount do
  begin
   if (Form1.RzStringGrid1.Cells[1,row] <> '') and
      (Form1.RzStringGrid1.Cells[2,row] <> '') then
      begin
       Form1.RzStringGrid1.Cells[2,row]:=IntToStr(StrToInt(Form1.RzStringGrid1.Cells[2,row])*
                                                  StrToInt(Form1.RzStringGrid1.Cells[1,row]));
      end;
  end;
end;

Если заполнена первая строка, то никакой реакции на нажатие кнопки. Если добавляю еще одну строку, то при нажатии на кнопку происходит перемножение в первой строке, а во второй нет. Во как.

[Kotofff]

А почему for row:=2 ? В первой строке шапка ?
to Form1.RzStringGrid1.RowCount do - нумерация же с нуля !

procedure TForm1.Button1Click(Sender: TObject);
var
  col,row: Integer;
begin
  for row:=1 to Form1.StringGrid.RowCount-1 do
  begin
   if (Form1.StringGrid.Cells[0,row] <> '') and
      (Form1.StringGrid.Cells[1,row] <> '') then
      begin
       Form1.StringGrid.Cells[1,row]:=IntToStr(StrToInt(Form1.StringGrid.Cells[1,row])*
                                                  StrToInt(Form1.StringGrid.Cells[0,row]));
      end;
  end;
end;

У меня пока не установлены Raize компоненты так что с обычным StringGrid`ом все работает ...

[Баламут]

Сообщение от Kotofff

А почему for row:=2 ?

А какое это имеет значение? Ну используются 2 первые строки под заголовки... Я и с raise компонентом не смог добиться, чтобы не заработало

[artemavd]

в смысле у тебя работает?

[Баламут]

Сообщение от artemavd

в смысле у тебя работает?

В прямом! Кинул грид на форму, добавил батон и в его обработчике клика прописал твой код. Тест ошибок пока не выявил. Потому и говорю, что кроме некорректных значений причин для неправильной работы пока не вижу.