instantobjects-cvscommit

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

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

Modified Files:
	InstantPersistence.pas 
Log Message:
Support for changing the data type used for ID fields; fixed Range Check Error in TInstantAttribute.GetIsDefault; added explicit ordering to externalstored collections; assorted fixes and a bit of reformatting.

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** InstantPersistence.pas	12 Sep 2004 11:17:33 -0000	1.9
--- InstantPersistence.pas	16 Sep 2004 11:47:03 -0000	1.10
***************
*** 35,38 ****
--- 35,43 ----
   * Nando Dessena, Andrea Petrelli:
   * - ExternalParts and ExternalReferences support
+  * Nando Dessena:
+  * - Added OnGenerateId event as a primitive form of ID Factory.
+  * - Support for changing the data type used for ID fields.
+  * - Fixed Range Check Error in TInstantAttribute.GetIsDefault.
+  * - Added explicit ordering to externalstored collections.
   * ***** END LICENSE BLOCK ***** *)
  
[...1311 lines suppressed...]
!         Params := TParams.Create;
          try
            Statement:=Format(SelectExternalStoredSQL, [AttributeMetadata.ExternalStoredName]);
!           AddIdParam(Params, InstantParentIdFieldName, AObjectId);
            AddStringParam(Params, InstantParentClassFieldName, AObject.ClassName);
            AddStringParam(Params, InstantParentAttributeFieldName, Attribute.Name);
***************
*** 13791,13795 ****
          Changed;
        end;
!     end else
      begin
        Stream := TInstantStringStream.Create(ReadBlobField(DataSet, AFieldName));
--- 13885,13890 ----
          Changed;
        end;
!     end
!     else
      begin
        Stream := TInstantStringStream.Create(ReadBlobField(DataSet, AFieldName));