[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.10,1.11

[Nando D. <na...@us...>]

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

Modified Files:
	InstantPersistence.pas 
Log Message:
Added support for externalstored and externallinked to TPart; fixed bug in TInstantReferences.Assign which caused the Value of the *source* object to be cleared, changed TInstantObject.Clone in order to allow cloning external parts objects; mixed reformatting

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** InstantPersistence.pas	16 Sep 2004 11:47:03 -0000	1.10
--- InstantPersistence.pas	30 Sep 2004 15:26:39 -0000	1.11
***************
*** 34,38 ****
   * - LoginPrompt support in Connections based on TCustomConnection
   * Nando Dessena, Andrea Petrelli:
!  * - ExternalParts and ExternalReferences support
   * Nando Dessena:
   * - Added OnGenerateId event as a primitive form of ID Factory.
--- 34,38 ----
   * - LoginPrompt support in Connections based on TCustomConnection
   * Nando Dessena, Andrea Petrelli:
!  * - ExternalPart, ExternalParts and ExternalReferences support
   * Nando Dessena:
[...1233 lines suppressed...]
--- 14302,14306 ----
                while not Eof do
                begin
!                 RefObject := TInstantObjectReference.Create(nil, True);
                  RefObject.ReferenceObject(Metadata.ObjectClass, Fields[1].AsString);
                  (Attribute as TInstantReferences).ObjectReferenceList.Add(RefObject);
***************
*** 14022,14025 ****
--- 14455,14465 ----
  end;
  
+ function TInstantSQLResolver.GetInsertExternalPartSQL: string;
+ begin
+   if FInsertExternalPartSQL = '' then
+     FInsertExternalPartSQL := Broker.Generator.GenerateInsertExternalPartSQL(Map);
+   Result := FInsertExternalPartSQL;
+ end;
+ 
  { TInstantSQLQuery }