Subject IBO 46 in BDS 2006 CBuilder personality (BCB2006)
Author Gary Benade
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