Функция вычисления суммы полей

Советы » Записи, индексы, поля, закладки » Функция вычисления суммы полей

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com