Update of /cvsroot/instantobjects/Source/Brokers/IBX
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8377/Brokers/IBX
Modified Files:
InstantIBX.pas
Log Message:
support for altering indexes in database evolution; fixed $I directive
Index: InstantIBX.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBX.pas,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** InstantIBX.pas 28 Jun 2005 10:04:12 -0000 1.10
--- InstantIBX.pas 13 Jul 2005 08:32:58 -0000 1.11
***************
*** 31,35 ****
unit InstantIBX;
! {$I ..\..\Core\InstantDefines.inc}
{$IFDEF D7+}
--- 31,35 ----
unit InstantIBX;
! {$I ../../Core/InstantDefines.inc}
{$IFDEF D7+}
***************
*** 431,434 ****
--- 431,436 ----
else if CommandType = ctAddIndex then
Result := TInstantDBBuildAddIndexSQLCommand.Create(CommandType, Connector)
+ else if CommandType = ctAlterIndex then
+ Result := TInstantDBBuildAlterIndexSQLCommand.Create(CommandType, Connector)
else if CommandType = ctDropIndex then
Result := TInstantDBBuildDropIndexSQLCommand.Create(CommandType, Connector)
|
