[Instantobjects-cvscommit] SF.net SVN: instantobjects: [575] trunk/Source/Core/InstantPersistence.pas

[<fas...@us...>]

Revision: 575
Author:   fastbike2
Date:     2006-02-02 18:47:44 -0800 (Thu, 02 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=575&view=rev

Log Message:
-----------
Fix for Bug  1423157.  Parts Attribute Insert causes Error

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2006-02-03 01:59:28 UTC (rev 574)
+++ trunk/Source/Core/InstantPersistence.pas	2006-02-03 02:47:44 UTC (rev 575)
@@ -26,7 +26,7 @@
  * Contributor(s):
  * Carlo Barazzetta, Andrea Petrelli, Nando Dessena, Steven Mitchell,
  * Joao Morais, Cesar Coll, Uberto Barbini, David Taylor, Hanedi Salas,
- * Riceball Lee
+ * Riceball Lee, David Moorhouse
  *
  * ***** END LICENSE BLOCK ***** *)
 
@@ -6592,7 +6592,8 @@
 procedure TInstantContainer.Insert(Index: Integer;
   AObject: TInstantObject);
 begin
-  CheckRange(Index);
+  if Index <> 0 then
+    CheckRange(Index);
   ValidateObject(AObject);
   BeforeContentChange(ctAdd, Index, AObject);
   InternalInsert(Index, AObject);