код считающий сумму по столбцам в одном StringGrid и записывающий в другой

[fcdk_pavel]

есть код считающий сумму по столбцам в одном StringGrid и записывающий в другой

//Подсчёт сумм по столбцам в таблице Sg1 и запись результатов в таблицу Sg2.
  for j := Sg1.FixedCols to Sg1.ColCount - 1 do begin
    Sum := 0;
    {Подсчёт суммы по j-му столбцу.
    Если в ячейке записан текст, не являющийся представлением числа,
    то такое значение будет принято равным 0 (нулю).}
    for i := Sg1.FixedRows+1 to Sg1.RowCount - 1 do
      Sum := Sum + StrToFloatDef(Sg1.Cells[j, i], 0);
    //Запись подсчитанной суммы в Sg2.
    Sg2.Cells[j, Sg2.FixedRows] := FloatToStr(Sum);
  end;

как изменить код чтобы если в каком то столбце было значение с "-"(ячейка Е8[-4213] и т.д.) он его обнулял? например в отмеченных на скрине столбцах есть значения с "-". надо чтобы если число отрицательное его принимать как 0, и уже суммировать значение с таким учетом.
помогите пожалуйста!!

[IliaIT]

так и напиши как говоришь.
вот ты считаешь

    for i := Sg1.FixedRows+1 to Sg1.RowCount - 1 do
      Sum := Sum + StrToFloatDef(Sg1.Cells[j, i], 0);

добавь переменную и разверни цикл и сделай проверку.

 for i := Sg1.FixedRows+1 to Sg1.RowCount - 1 do
    begin //temp_ch:double; или такой же тип как у Sum
      temp_ch:=StrToFloatDef(Sg1.Cells[j, i], 0);//запомнили число ячейки
      if temp_ch<=0 then temp_ch:=0; //проверка на отрицательное
      Sum := Sum +temp_ch; //добавили изменённое
    end;

в дельфи не проверял, но вроде правильно должно работать.