Components for Delphi and C++ Builder.

unit DBSumLst;
у вас:
TDBSum = class(TCollectionItem)
protected
Value: Currency;
FSumValueAsSum: Currency;
public
SumValue: Currency;

Переменные для суммирования имеют тип данных Currency
Расчет суммы происходит у вас так:
Item.SumValue := Item.SumValue + FieldArr[i].AsFloat;

и что будет если FieldArr[i].AsFloat = 999999999999999

Будет конечно ошибка!!!!!!

Будем исправлять тип данных?!
если нет то что делать?

Уже отвечали на подобные вопросы. Тип Currency используется, чтобы не было потери точности вычислений.


Считайте итоги сами и выводите как строку.

Ребята! ну вы не правы!
Ваш ответ подразумевает посыл на ...
какая может быть потеря точности вычислений если вы используете код:
"CURRENCY":= "CURRENCY" + "Float";

т.е. вы написали библиотеку, которая не может работать с большими числами!
почему данного сообщения нет на вашей стартовой веб странице, с пометкой "ВНИМАНИЕ"!

Почему, если итоговая сумма по колонке превышает размерность типа "CURRENCY", Программа слетает по ошибке!

Вы хоть ошибки такого типа гасите и сумму на пусто сбрасывайте и выводите в ячейке к примеру "ОШИБКА" !!!!!!
и дайте возможность перекрыть данный тип, чтобы каждый раз при переходе на новую версию не исправлять ваш код!

svborodin, я не являюсь разработчиком библиотеки EhLib. Я Вам ответил на Ваш вопрос, поскольку знаю на него ответ. Я сам задавал такой вопрос разработчику еще в 2012 году. Вот что мне ответили:

Вы тоже уже спрашивали по этому поводу:
http://forum.ehlib.com/ru/viewtopic.php?f=4&t=2468
Вот еще аналогичная тема:
http://forum.ehlib.com/ru/viewtopic.php?f=4&t=130

Жду любой ответ от разработчиков.

Добрый день.

Есть пробный вариант подсчета сумм на основе типа TBcd (до 64 десятичных знаков).
Если готовы принять участие в тестировании, то напишите на support@ehlib.com

_________________
Best regards
EhLib support Team

Меня не интересует 64 десятичных разряда. Мне достаточно и 3
Проблема когда числа большие! Юзер ошибочно забил в базу данных громадное число (палец залип на кнопке)
и после этого форма стала у всех открываться с ошибками

как с этим можно бороться?

(я у себя просто в ваших исходниках заменил Currency на Float и все заработало)

А ограничить юзеру количество знаков в числе, например задать MaxLength у Edit ?

Добрый
Увидит ли свет этот вариант сумматора?

Или есть рабочий способ исправить переполнение в итогах (кроме замены Currency на Float)?