关于grid多选的问题

Question

delphi7 
想实现 双击dbgrid1中的行  得到选中行的金额合计
   现在实现了双击的时候金额进行累加，双击取消的时候金额也相减，可是右键全选的时候 金额就变成dbgrid中的最后一样的金额。点取消全选也是这样.
  if DBGrid1.selectedrows.CurrentRowSelected=true then
        begin
          begin
            tmpje:=tmpje+ DBGrid1.DataSource.DataSet.FindField(je).AsFloat;
          end;
        end
        else
        begin
          if DBGrid1.DataSource.DataSet.FindField(tmpfld)<>nil then
          begin
            tmpje:=tmpje- DBGrid1.DataSource.DataSet.FindField(je).AsFloat;
          end;
        end;

Answer 1

每次计算就遍历DBGrid1.selectedrows相加即可