Советы по Delphi
Функция вычисления суммы полей
| function SumField(const fieldName : OpenString) : longint; var fld : TField;bm : TBookmark; // закладкаbegin result := 0;tbl.DisableControls; // выключаем рекцию на перемещение по набору данныхbm := tbl.GetBookmark; // сохраняем позициюfld := tbl.FieldByName(fieldName);tbl.first;while not tbl.eof do beginresult := result + fld.AsInteger;tbl.next;end;tbl.GotoBookmark(bm); // позиционируем обратноtbl.EnableControls; // включаем реакцию на перемещение по набору данныхend; |
Спасибо за ценное замечание [000542]
