Update of /cvsroot/instantobjects/Source/Brokers/UIB
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8032/Brokers/UIB
Modified Files:
InstantUIB.pas
Log Message:
support for altering indexes in database evolution; fixed $I directive
Index: InstantUIB.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/UIB/InstantUIB.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** InstantUIB.pas 6 Jul 2005 01:27:23 -0000 1.11
--- InstantUIB.pas 13 Jul 2005 08:32:26 -0000 1.12
***************
*** 27,31 ****
unit InstantUIB;
! {$I ../../../Core/InstantDefines.inc}
{$IFDEF D7+}
--- 27,31 ----
unit InstantUIB;
! {$I ../../Core/InstantDefines.inc}
{$IFDEF D7+}
***************
*** 514,517 ****
--- 514,519 ----
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)
|
