[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.74,1.75

[Steven M. <sr...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21301

Modified Files:
	InstantPersistence.pas 
Log Message:
Fix for external Part Attribute memory leak when refreshing object.
[Report #1369821 in SF BT] 

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.74
retrieving revision 1.75
diff -C2 -d -r1.74 -r1.75
*** InstantPersistence.pas	29 Nov 2005 23:20:18 -0000	1.74
--- InstantPersistence.pas	1 Dec 2005 03:18:00 -0000	1.75
***************
*** 14284,14289 ****
--- 14284,14294 ----
      begin
        with (Attribute as TInstantPart) do
+       begin
+         // Must clear Value first to avoid leak for Refresh operation
+         // as OldValue = NewValue.
+         Value := nil;
          Value := InstantFindClass(ReadStringField(DataSet, AFieldName + InstantClassFieldName)).Retrieve(
            ReadStringField(DataSet, AFieldName + InstantIdFieldName), False, False, AObject.Connector);
+       end;
      end
      else