怎样求stringgrid某列值的和？

Question

Stringgrid1是我的客户商品表，在stringgrid1的第3列是各列商品的价格，我想求和，也就是这样：ZongJiaGe：=stringgrid1.Cells[3,1]+ stringgrid1.Cells[3,2]+stringgrid1.Cells[3,3]+....+stringgrid1.Cells[3,stringgrid1.rowcount-1] ;我不想用DBGRID。帮我写出代码，把数据类型转换也写上，商品价格我用的是string;
谢谢！

Answer 1

var
  vSum : Double;
  vRow : Integer;
begin
  For vRow 0 to  StringGrid1.RowCount - 1 do
    vSum := vSum + StrToFloat(StringGrid1.Cells[Col,vRow]);//Col是你的列
end;----------------
沉沦中..........