Операция в StringGrid

[grafgrial]

Подскажите плиз как мне в этом stringGrid'e количество товара умножить на цену по каждой строчке, а потом сложив ответ поместить в Edit (сумма)
Учесть что строчек может быть и больше, еще и пустые (помешают или нет - Не знаю!)
ыва.jpg
Может кто знает как удалить пустые строчки?

[Stilet]

with Stringgrid do 
 for i:=1 to RowCount-1 do
   if cells[i,0]<>'' then begin
    summ:=summ+StrToIntDef(Cells[i,2],0)*StrToIntDef(Cells[i,3],0);
   end;

Здесь будут пропускаться непронумерованные строки, рассчитываться сумма (summ:integer)

[grafgrial]

что то не получается. Код работает если в гриде 2или более строки, но он складывает 3 столбец и 2 столбец последней заполненой строки

[Прик]

Небольшая промашка - в индексации ячеек вначале указывается индекс колонки.
Чтобы удалить пустые строки, необходимо знать сколько не пустых строк (при условии, что все пустые строки находятся ниже).

K := 1; // K : Integer;
summ := 0;
with Stringgrid do begin
  for i := 1 to RowCount-1 do
    if cells[0, i]<>'' then begin
      summ := summ + StrToIntDef(Cells[2, i],0) * StrToIntDef(Cells[3, i],0);
      Inc(K);
    end ;
  if K > 0 then
    RowCount := K; //удаление пустых строк
end;

Edit1.Text := FloatToStrF(summ, ffFixed, 8, 2); //как один из вариантов

[grafgrial]

Круто, с вычислением получилось, но оказалось что удаление пустых строк работает не так как нужно. А можно ли чтобы оставлял одну пустую строку?
И еще, может кто знает почему у меня в dbgrid не добавляет вещественные числа (вида 123,00)?

[Прик]

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

но оказалось что удаление пустых строк работает не так как нужно.

А как нужно?

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

А можно ли чтобы оставлял одну пустую строку?

Можно.

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

И еще, может кто знает почему у меня в dbgrid не добавляет вещественные числа (вида 123,00)?

Никто не знает. Есть только предположение. Может быть в региональных настройках поколдовать надо. А может нет и причина в чем-то другом.

[grafgrial]

Удаление работает нормально, я просто в том смысле что нужно оставить только одну пустую строчку. Если можно то как? Буду очень благодарен

[Прик]

К - это счетчик заполненных строк, в цикле он накапливается процедурой Inc(K).
Достаточно свойству RowCount присвоить на одну строку больше:

 if K > 0 then
    RowCount := K+1;

[grafgrial]

Спасибо, тема закрыта