Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Singleton Pattern
Message
From
16/12/2002 11:01:40
Erick Miranda
Formata Data Business - Grupo Linx
Contagem, Brazil
 
 
To
16/12/2002 10:18:53
José Luis Santana Blasco
Caja Mediterráneo
Alicante, Spain
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Title:
Re: Singleton Pattern
Miscellaneous
Thread ID:
00733289
Message ID:
00733297
Views:
16
Hi José Luis!

You can try to use the function AINSTANCE( ):
oFirstObject = CREATEOBJECT("MySingletonClass")

nCountInstance = AINSTANCE(aMyArray, "MySingletonClass")
If nCountInstance = 0
   oSeconObject = CREATEOBJECT("MySingletonClass")
Else
   oSeconObject = &aMyArray[1]
Endif
Bye!
Erick
Força Sempre!
Strength Always!
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform