[Dead_Gigabit]

Всем привет...
Не могу понять что не так:
хочу подсчитать сумму значений выделенных ячеек DBGridEh

Код:

1 2 3 4 5 6 7 8 9 10 11

var i:integer; sum:real; begin sum:=0;   for i := 0 to DBG.SelectedRows.Count-1 do begin        sum:=sum + dbg.SelectedRows.DataSet.FieldByName('SUMMA').AsFloat;        DBG.SelectedRows.DataSet.Next;   end ;   ShowMessage(FloatToStr(sum)); end;

где DBG - DBGridEh1
глянте свежим взглядом может кто увидит косяк....

Программа считает ,но почемуто такую охинею выдаёт в резульат аж жуть....

[Viajero]

Что-то я не увидел перед for первоначальной установки указателя на начало выделенного блока.

[Dead_Gigabit]

тьфу не дописал вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var i:integer; sum:real; begin sum:=0; dbg.SelectedRows.DataSet.First; //for I:=1  to dbg.SelectedRows.Count-1 do begin   for i := 0 to DBG.SelectedRows.Count-1 do begin        sum:=sum + dbg.SelectedRows.DataSet.FieldByName('SUMMA').AsFloat;        DBG.SelectedRows.DataSet.Next;   end ;   ShowMessage(FloatToStr(sum)); end;

Вот так видно в копи пасте не попало....
Даже с этим результт сумирования неправильный 700+200=900 прога вадает 784..

[Viajero]

Код:

1	dbg.SelectedRows.DataSet.First;

Это неправильно. SelectedRows не cоздаёт Датасета .
SelectedRows.DataSet указывает на родительский Датасет.
В справке к EhLib написано, что с SelectedRows надо работать, как с набором вкладок.
Попробуй так, хотя я не тестировал, и почитай внимательно справку к EhLib

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

//DBG.SelectedRows.DataSet можно заменить на идентификатор родительского Датасета var i:integer; sum:real; begin sum:=0; //for I:=1  to dbg.SelectedRows.Count-1 do begin   for i := 0 to DBG.SelectedRows.Count-1 do begin <font color="Red">GotoBookmark(pointer(DBG.SelectedRows.DataSet.SelectedRows.Items[i]));</font>        sum:=sum + dbg.SelectedRows.DataSet.FieldByName('SUMMA').AsFloat; <font color="DarkOrange">//    DBG.SelectedRows.DataSet.Next; не нужен</font>   end ;   ShowMessage(FloatToStr(sum)); end;

[Dead_Gigabit]

Странно ругается на эту строчку:

Код:

1	GotoBookmark(pointer(DBG.SelectedRows.DataSet.SelectedRows.Items[i]));

Может чего в Uses прописать?