Code: Select all
Procedure classMethodX(*this.class)
With *this
; ...
EndWith
EndProcedureCode: Select all
Procedure classCreate()
Protected *this.class
*this = AllocateMemory(SizeOf(class) )
ProcedureReturn *this
EndProcedure
Procedure classDestroy(*this.class)
FreeMemory(*this)
EndProcedureIf I test for only one instance, I have near nothing to do : I just replace Protected with Static.
Is Static a right directive to start any instances ?
