Apologies if this is a duplicate post - mail server was acting up

Change to Delphi Win32 personality
Open IBO40_C2006.bdsgroup

for each and every bpl in the group, select Options->Linker->Generate
all
c++Builder files

Compile all and install Design components.

Switch to CBuilder personality and compoentns should still be
installed

The following changes need to be made

comment out line 44 in IB_Header.hpp

//typedef short short;

change line 3854 to 3593 in IB_Components.hpp (original lines
commented out
below)

/* __property Classes::TStrings* SQLSelect = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=1};
__property Classes::TStrings* SQLFrom = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=2};
__property Classes::TStrings* SQLWhere = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=3};
__property Classes::TStrings* SQLGroup = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=4};
__property Classes::TStrings* SQLHaving = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=5};
__property Classes::TStrings* SQLUnion = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=6};
__property Classes::TStrings* SQLPlan = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=7};
__property Classes::TStrings* SQLOrder = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=8};
__property Classes::TStrings* SQLForUpdate = {read=GetSQLSection,
write=SetSQLSection, stored=false, index=9}; */
__property Classes::TStrings* SQLSelect[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLFrom[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLWhere[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLGroup[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLHaving[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLUnion[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLPlan[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLOrder[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};
__property Classes::TStrings* SQLForUpdate[TIB_SQLSections index] =
{read=GetSQLSection, write=SetSQLSection};

Things seem to be working fine, can others please verify.

Regards
Gary Benade