[Instantobjects-cvscommit] SF.net SVN: instantobjects: [701] branches/Refactor_InstantPersistenceUnit/Source/Core

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

Revision: 701
Author:   srmitch
Date:     2006-08-08 17:04:12 -0700 (Tue, 08 Aug 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=701&view=rev

Log Message:
-----------
- Changed TInstantAbstractAttribute.Initialize to abstract.
- Added empty TInstantAttribute.Initialize method.

Modified Paths:
--------------
    branches/Refactor_InstantPersistenceUnit/Source/Core/InstantClasses.pas
    branches/Refactor_InstantPersistenceUnit/Source/Core/InstantPersistence.pas
Modified: branches/Refactor_InstantPersistenceUnit/Source/Core/InstantClasses.pas
===================================================================
--- branches/Refactor_InstantPersistenceUnit/Source/Core/InstantClasses.pas	2006-08-07 11:30:35 UTC (rev 700)
+++ branches/Refactor_InstantPersistenceUnit/Source/Core/InstantClasses.pas	2006-08-09 00:04:12 UTC (rev 701)
@@ -404,7 +404,7 @@
     procedure SetOwner(AOwner: TInstantAbstractObject);
     function GetMetadata: TInstantCollectionItem;
     procedure SetMetadata(AMetadata: TInstantCollectionItem);
-    procedure Initialize; virtual;
+    procedure Initialize; virtual; abstract;
   public
     constructor Create(AOwner: TInstantAbstractObject;
       AMetadata: TInstantCollectionItem); virtual;
@@ -1944,10 +1944,6 @@
   Result := FOwner;
 end;
 
-procedure TInstantAbstractAttribute.Initialize;
-begin
-end;
-
 procedure TInstantAbstractAttribute.SetMetadata(
   AMetadata: TInstantCollectionItem);
 begin

Modified: branches/Refactor_InstantPersistenceUnit/Source/Core/InstantPersistence.pas
===================================================================
--- branches/Refactor_InstantPersistenceUnit/Source/Core/InstantPersistence.pas	2006-08-07 11:30:35 UTC (rev 700)
+++ branches/Refactor_InstantPersistenceUnit/Source/Core/InstantPersistence.pas	2006-08-09 00:04:12 UTC (rev 701)
@@ -179,6 +179,7 @@
     function GetIsDefault: Boolean; virtual;
     function GetIsMandatory: Boolean; virtual;
     function GetOwner: TInstantObject; reintroduce; virtual;
+    procedure Initialize; override;
     procedure ReadName(Reader: TInstantReader);
     procedure SetAsBoolean(AValue: Boolean); virtual;
     procedure SetAsCurrency(AValue: Currency); virtual;
@@ -2384,6 +2385,10 @@
   Result := AsVariant;
 end;
 
+procedure TInstantAttribute.Initialize;
+begin
+end;
+
 procedure TInstantAttribute.ReadName(Reader: TInstantReader);
 begin
   Reader.ReadStr;