Update of /cvsroot/instantobjects/Demos/Intro
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29739/Intro
Modified Files:
Model.pas
Log Message:
fixed incorrect spacing of the IOMETADATA keyword
Index: Model.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/Intro/Model.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Model.pas 10 Feb 2005 12:53:34 -0000 1.2
--- Model.pas 1 Mar 2005 05:37:11 -0000 1.3
***************
*** 8,12 ****
type
TAddress = class(TInstantObject)
! { IOMETADATA 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)
! { IOMETADATA 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)
! { IOMETADATA 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)
! { IOMETADATA stored;
DateOfBirth: DateTime; }
_DateOfBirth: TInstantDateTime;
--- 73,77 ----
TPerson = class(TContact)
! {IOMETADATA stored;
DateOfBirth: DateTime; }
_DateOfBirth: TInstantDateTime;
***************
*** 84,88 ****
TCompany = class(TContact)
! { IOMETADATA stored;
ContactPerson: Reference(TPerson); }
_ContactPerson: TInstantReference;
--- 84,88 ----
TCompany = class(TContact)
! {IOMETADATA stored;
ContactPerson: Reference(TPerson); }
_ContactPerson: TInstantReference;
|
