Update of /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29447/PrimerCross/ModelExternal
Modified Files:
Model.pas
Log Message:
External storage unification & refactoring - updated PrimerExternal
Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/ModelExternal/Model.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Model.pas 18 Feb 2005 11:04:08 -0000 1.2
--- Model.pas 18 Feb 2005 15:35:27 -0000 1.3
***************
*** 110,118 ****
TContact = class(TInstantObject)
{ IOMETADATA stored;
! Address: Part(TAddress) externalstored 'Contact_Address';
Category: Reference(TCategory);
City: String(30) index;
Name: String(50) index;
! Phones: Parts(TPhone) externalstored 'Contact_Phone'; }
_Address: TInstantPart;
_Category: TInstantReference;
--- 110,118 ----
TContact = class(TInstantObject)
{ IOMETADATA stored;
! Address: Part(TAddress) external;
Category: Reference(TCategory);
City: String(30) index;
Name: String(50) index;
! Phones: Parts(TPhone) external 'Contact_Phones'; }
_Address: TInstantPart;
_Category: TInstantReference;
***************
*** 169,173 ****
{IOMETADATA stored;
BirthDate: DateTime;
! Emails: Parts(TEmail) externalstored 'Person_Email';
Employer: Reference(TCompany);
Picture: Graphic;
--- 169,173 ----
{IOMETADATA stored;
BirthDate: DateTime;
! Emails: Parts(TEmail) external 'Person_Emails';
Employer: Reference(TCompany);
Picture: Graphic;
***************
*** 213,217 ****
TCompany = class(TContact)
{ IOMETADATA stored;
! Employees: References(TPerson) externalstored 'Company_Employee'; }
_Employees: TInstantReferences;
private
--- 213,217 ----
TCompany = class(TContact)
{ IOMETADATA stored;
! Employees: References(TPerson) external 'Company_Employees'; }
_Employees: TInstantReferences;
private
|
