Hello Jason.

It's very simple to recreate the problem.
It's obvious that you know how to do what I will explain here, but I
do it just to be sure that you are aware of the exact steps that I
did to get the problem.


In Interbase:

1) create a table (table1) with three fields:
a) field1 integer
b) field2 varchar(50)
c) field3 double precision
2) insert some rows in the table
3) enter big number like 25,123,987.34 in field3


In Delphi:
1) put a tib_connection,tib_query and a tib_datasource on a form
2) I assume that you define the connection
3) double-click on the tib_query component to bring the editor
4) select * from table1 for update
5) prepare it
6) in column attributes tab, select field3 and click on currency
check box
7) put a grid on the form, attach it to the datasource that you
defined
8) run the program

The form shows on my screen with the grid and in field3, I see, for
example, 2512.3987. If I go back to the column attributes and
deselect the currency checkbox, I see 25123987.34 which is the exact
number that I entered in field3.


I have to tell you that I put some breakpoints in your code (in
IBA_Column.imp) in the TIB_Column.GetDisplayText function and I saw
that IsCurrency is never true.


I also tried with a numeric field and the behaviour is not exactly
the same. If I create a field3 numeric, the result in the grid is
rounded. I have to specify a large numeric field if I want it to
show correctly. But with large numbers, the problem reappears.


I hope this will help. I know you asked me for a little application,
but, it is very simple to recreate the problem.


Jocelyn Dionne.

--- In IBObjects@y..., "Jason Wharton" <jwharton@i...> wrote:
> Is it possible that you could put this in a simplified application
for me to
> look at?
>
> Thanks,
> Jason Wharton
> CPS - Mesa AZ
> http://www.ibobjects.com
>
>
> ----- Original Message -----
> From: <jocelyndionne@u...>
> To: <IBObjects@y...>
> Sent: Monday, February 05, 2001 12:27 PM
> Subject: [IBO] Re: Problem in TIB_Query and currency...
>
>
> > Am I the only one who's having this problem???
> >
> > Nobody has an idea???
> >
> >
> > Thanks.
> >
> > Jocelyn Dionne
> >
> >
> >
> > --- In IBObjects@y..., jocelyndionne@u... wrote:
> > > There is something strange that happens when I specify that a
field
> > > is 'Currency' in TIB_Query.
> > >
> > > The field is defined 'Double precision' in the table.
> > >
> > > For example, if the field contains 25000000.000, it appears only
> > > 2500.0000 in the grid and I don't see the dollar sign.
> > >
> > > If I don't specify 'Currency' and I enter a display format,
it's OK.
> > >
> > > My regional settings are well defined.
> > > I have some applications that use ADO and currency fields
appear OK.
> > >
> > > Do you have any idea of what's happening?
> > >
> > > Specs:
> > > Delphi 5 with the update pack
> > > IB6
> > > IBO 3.6cd
> > >
> > >
> > > Thanks in advance.
> > >
> > > Jocelyn Dionne
> >
> >
> >
> >
> >