29 lines
531 B
Plaintext
29 lines
531 B
Plaintext
LOCAL o1 As MyClass, o2 As MyClass
|
|
*!* Instantiate o1
|
|
o1 = NEWOBJECT("MyClass")
|
|
o1.ShowInstance()
|
|
*!* Instantiate o2
|
|
o2 = CREATEOBJECT("MyClass", 2)
|
|
o2.ShowInstance()
|
|
|
|
|
|
DEFINE CLASS MyClass As Session
|
|
*!* Custom property (protected)
|
|
PROTECTED nInstance
|
|
nInstance = 0
|
|
|
|
*!* Constructor
|
|
PROCEDURE Init(tnInstance As Integer)
|
|
IF VARTYPE(tnInstance) = "N"
|
|
THIS.nInstance = tnInstance
|
|
ELSE
|
|
THIS.nInstance = THIS.nInstance + 1
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
*!* Custom Method
|
|
PROCEDURE ShowInstance
|
|
? "Instance", THIS.nInstance
|
|
ENDPROC
|
|
ENDDEFINE
|