DBGrid1如何对多选中的一个字段某几行求和

比如我选中两行,则循环两次,但是只对鼠标当前点选的值求和两遍
比如
  姓名 总计
  张三 5.25
  李四 2.23

事实上我已经通过设置DBGRID的OPTION的dbmultiselect为TRUE，按CTRL+选中上面两行记录，但只对鼠标点选的最后一条记录求和两遍，比如2.23+2.23=4。46

下面是我写的，请给改一下，谢谢！

var
i:integer;
begin
edit1.Text:='0';
for i:=1 to dbgrid1.SelectedRows.Count do
if dbgrid1.SelectedRows.CurrentRowSelected then
  begin
  edit1.Text:=dbgrid1.Fields[5].Value+strtofloat(edit1.Text);
  end;

你的循环不应是1开始吧，而是0至SelectedRows.Count-1

跟它没关系,它只是判断当前选择了几条记录

我不知道dbmultiselect所选黑的所有行记录的某一行怎么表示

For i:=0 To dbgrid1.SelectedRows.Count-1 do
begin
Adoquery1.GotoBookmark(pointer(dbgrid1.SelectedRows.Items[i]));
edit1.Text:=Adoquery1.FieldValues['XX']+strtofloat(edit1.Text);
End;
 
XX改成第5列的字段名