Delphi XE7 unidac rounding issue

Asked Feb 11 '18 at 06:02

Active Feb 11 '18 at 07:39

Viewed 118 times

In my below delphi code, which is compiled in XE7 and with unidac version 7.0.2 :

cAmount : Currency;

cAmount := Query1.FieldByName('AMOUNT').AsCurrency;

Sometimes i get very weird values in cAmount.

For example if the Amount value in the database(Oracle) is 2.4,The value I'll get in cAmount is 2.3999.To my surprise i'm getting this values only sometimes when i try to recreate the scenario.

Could anyone please help me in this.

edited Feb 11 '18 at 07:39

Marking

asked Feb 11 '18 at 06:02

Binitta Mary

How is the field declared in the database? – David Heffernan Feb 11 '18 at 06:13
@David, `AsCurrency` reads `AsFloat` which is `Double`, which "represents" real value of 2.4 like that. – Victoria Feb 11 '18 at 06:16
This field is declared as Number – Binitta Mary Feb 11 '18 at 06:16
@victoria35 But not all the times I'm getting the same.Most of the time i'm getting 2.4 – Binitta Mary Feb 11 '18 at 06:20
@Binitta, not for the same value which is actually stored. – Victoria Feb 11 '18 at 06:21
@Victoria I didn't get you. – Binitta Mary Feb 11 '18 at 06:24
@Binitta, I wanted to say that there is a difference in values that you have actually stored. There is no most of the time. What you store is what you get. Here is a [story about it](https://docs.oracle.com/cd/E19957-01/806-3568/ncg_goldberg.html). – Victoria Feb 11 '18 at 06:29
@Victoria I dont thing that is the problem. Because I'm fetching same record in a Loop without any update to the record.So the value is same always in database. – Binitta Mary Feb 11 '18 at 06:42
@Binitta, fetching "same record in a loop" makes little sense to me, but if you can prove it in a minimal, compilable code example, edit your question and post such, please. – Victoria Feb 11 '18 at 06:47
1

@Victoria AsCurrency converts decimal to binary? That's crazy. – David Heffernan Feb 11 '18 at 10:45

Delphi XE7 unidac rounding issue

0 Answers0