Советы по 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]




Начало  Назад  



Книжный магазин