From: Nando D. <na...@us...> - 2005-07-13 08:33:08
|
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) |