Update of /cvsroot/instantobjects/Demos/Intro
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10092/Demos/Intro
Modified Files:
Intro.mdr Model.pas
Log Message:
Intro Demo updated for IOMETADATA keyword.
Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Intro/Model.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Model.pas 2 Feb 2004 20:55:16 -0000 1.1
--- Model.pas 10 Feb 2005 12:53:34 -0000 1.2
***************
*** 8,12 ****
type
TAddress = class(TInstantObject)
! { City: String(30);
PostalCode: String(8);
Street: String(30); }
--- 8,12 ----
type
TAddress = class(TInstantObject)
! { IOMETADATA City: String(30);
PostalCode: String(8);
Street: String(30); }
***************
*** 28,32 ****
TPhone = class(TInstantObject)
! { Name: String(10);
Number: String(10) mask '(999) 999-9999;0;_'; }
_Name: TInstantString;
--- 28,32 ----
TPhone = class(TInstantObject)
! { IOMETADATA Name: String(10);
Number: String(10) mask '(999) 999-9999;0;_'; }
_Name: TInstantString;
***************
*** 43,47 ****
TContact = class(TInstantObject)
! { stored;
Address: Part(TAddress);
Name: String(30);
--- 43,47 ----
TContact = class(TInstantObject)
! { IOMETADATA stored;
Address: Part(TAddress);
Name: String(30);
***************
*** 73,77 ****
TPerson = class(TContact)
! { stored;
DateOfBirth: DateTime; }
_DateOfBirth: TInstantDateTime;
--- 73,77 ----
TPerson = class(TContact)
! { IOMETADATA stored;
DateOfBirth: DateTime; }
_DateOfBirth: TInstantDateTime;
***************
*** 84,88 ****
TCompany = class(TContact)
! { stored;
ContactPerson: Reference(TPerson); }
_ContactPerson: TInstantReference;
--- 84,88 ----
TCompany = class(TContact)
! { IOMETADATA stored;
ContactPerson: Reference(TPerson); }
_ContactPerson: TInstantReference;
Index: Intro.mdr
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Intro/Intro.mdr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsjtHCLA and /tmp/cvsdqLVtY differ
|
