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



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







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий