Glad to hear it.
I think in a future release of the 3.6 sources I'll just IFDEF that out for
Delphi 3.

Regards,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com

----- Original Message -----
From: "duilio_f" <dedalus@...>
To: <IBObjects@yahoogroups.com>
Sent: Friday, April 12, 2002 5:15 AM
Subject: [IBO] Re: is 0.208 some magic value ? (3th post)


> Jason,
>
> your suggestion worked.
>
> For the record, I commented out the enclosed code in IBDataset.pas.
>
> Thank you
>
> Duilio Foschi
>
>
> procedure GetDataTypeAndSize( ACol: TIB_Column;
> var NewDataType: TFieldType;
> var NewDataSize: integer;
> var BoolList: boolean );
> begin
> NewDataType := ftUnknown;
> NewDataSize := 0;
> if Assigned( ACol ) then
> with ACol do
> begin
> if IsBoolean and
> (((( SQLtype = SQL_SHORT ) or
> ( SQLtype = SQL_SHORT_ ) or
> ( SQLtype = SQL_LONG ) or
> ( SQLtype = SQL_LONG_ ) or
> ( SQLtype = SQL_QUAD ) or
> ( SQLtype = SQL_QUAD_ ) or
> ( SQLtype = SQL_INT64 ) or
> ( SQLtype = SQL_INT64_ ) or
> ( SQLtype = SQL_FLOAT ) or
> ( SQLtype = SQL_FLOAT_ ) or
> ( SQLtype = SQL_DOUBLE ) or
> ( SQLtype = SQL_DOUBLE_ )) and ( BooleanTrue =
> BoolTrueNbr ) and
> ( BooleanFalse =
> BoolFalseNbr ) and
> ( SQLScale = 0 )) or
> ( SQLtype = SQL_TEXT ) or
> ( SQLtype = SQL_TEXT_ ) or
> ( SQLtype = SQL_VARYING ) or
> ( SQLtype = SQL_VARYING_ )) then
> begin
> NewDataType := ftBoolean;
> BoolList := BoolList or
> ( ACol.BooleanTrue <> BoolTrueChr ) or
> ( ACol.BooleanFalse <> BoolFalseChr ) or
> ( SQLLen <> 1 );
> end
> else
> if SQLScale <> 0 then
> begin
> NewDataType := ftFloat;
> // the following code was commented out
> (*
> case SQLType of
> SQL_FLOAT,
> SQL_FLOAT_,
> SQL_DOUBLE,
> SQL_DOUBLE_: ;
> else
> if ( SQLScale >= -4 ) and not IsAttributeSet[ 'NOBCD' ] then
> begin
> NewDataType := ftBCD;
> NewDataSize := 8;
> end;
> end;
> *)
> // up to here
> end
> else
> <cut>
>