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

[<jcm...@us...>]

Revision: 630
Author:   jcmoraisjr
Date:     2006-02-26 06:25:36 -0800 (Sun, 26 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=630&view=rev

Log Message:
-----------
Fixed bug # 1439025 Apply/RestoreState decrementing StateLevel.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas
Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2006-02-26 13:50:12 UTC (rev 629)
+++ trunk/Source/Core/InstantPersistence.pas	2006-02-26 14:25:36 UTC (rev 630)
@@ -7537,6 +7537,8 @@
 
 procedure TInstantObject.ApplyState;
 begin
+  if FSaveStateLevel = 0 then
+    Exit;
   if FSaveStateLevel = 1 then
     try
       SavedState.Assign(State);
@@ -8791,6 +8793,8 @@
 var
   vInCache: Boolean;
 begin
+  if FSaveStateLevel = 0 then
+    Exit;
   if (FSaveStateLevel = 1) and not IsAbandoned then
     try
       vInCache := ObjectStore.Find(Self.PersistentId) = Self;
@@ -8868,7 +8872,6 @@
 begin
   if State.PersistentId = '' then
     Exit;
-
   if FSaveStateLevel = 0 then
     try
       SavedState.Assign(State);