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 }
|
