Советы по 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 begin result := result + fld.AsInteger; tbl.next; end; tbl.GotoBookmark(bm); // позиционируем обратно tbl.EnableControls;   // включаем реакцию на перемещение по набору данных end;

Спасибо Alexsander за ценное замечание [000542]



Содержание раздела