Перевод значения Variant в Extended если значение равно Null

← →
Tor © (2006-11-16 12:24) [0]

Доброго времени суток, All!
В принципе можно сделать вот так:

S := 0; if Contagents.Aggregates.Find("SUM_DEBET_FOR").Value <> Null then S := S + Contagents.Aggregates.Find("SUM_DEBET_FOR").Value; ...

Но хотелось у знать может есть какой-нибудь метод, который вслучае Null будет возвращать просто 0 ?

← →
Плохиш © (2006-11-16 12:27) [1]

Может у неизвестного объекта Contagents.Aggregates.Find("SUM_DEBET_FOR") имеется метод AsFloat?

← →
Dmitrij_K (2006-11-16 12:28) [2]

VarType(Variant)=varNull

← →
Tor © (2006-11-16 12:31) [3]

К сожелению дядя борланд наградил этот объект только МЕТОДОМ Value.

Да и работают эти агрегаты както через Ж, в плане округления значений, если например задать в св-ве Expression такое выражение: Sum(Field1) - Sum(Field2)
З.Ы. Это так к слову :)

> VarType(Variant)=varNull
тоже самое что в первом примере, только с другой стороны

Перевод значения Variant в Extended если значение равно Null Найти похожие ветки