Форум: "Базы";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Вниз

Сумма по полю   Найти похожие ветки 

← →
Корвин   (2002-03-05 09:23) [1]

Result:=0;
DS.First;
while not DS.Eof do begin
Result:=Result+DS.FieldByName("Val").asFloat;
DS.Next;
end;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c