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

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

Revision: 654
Author:   jcmoraisjr
Date:     2006-03-17 12:51:19 -0800 (Fri, 17 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=654&view=rev

Log Message:
-----------
Fixed a possible AV source into the last revision.

Modified Paths:
--------------
    trunk/Source/Core/InstantPresentation.pas
Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2006-03-17 20:35:48 UTC (rev 653)
+++ trunk/Source/Core/InstantPresentation.pas	2006-03-17 20:51:19 UTC (rev 654)
@@ -1906,6 +1906,7 @@
   procedure RevertDeleted(ARecordBuffer: TInstantRecordBuffer);
   begin
     with ARecordBuffer do
+    if Assigned(DeletedObjectInstance) then
     begin
       if DeletedObjectRecNo > AExposer.ObjectCount then
         AExposer.InternalAddObject(DeletedObjectInstance)  // Friend class