Класс Singleton в Visual FoxPro 9.0 - PullRequest
Новая
       15

Класс Singleton в Visual FoxPro 9.0

0 голосов
/ 23 мая 2019

Мне нужно создать свой собственный класс Singleton, используя Visual FoxPro 9.0

Я пробовал это: 

oRef1 = CreateObject("Singleton")
oRef2 = CreateObject("Singleton")
oRef1.cTest = "Some Text" 

?oRef1.cTest && Some Text
?oRef2.cTest && Prints nothing :(
Release oRef1, oRef2
Clear All
Return

*-- Singleton class
Define Class Singleton As Custom
   cTest = ""
   Procedire Init
      If Type("This.Ref") = "U"
         This.AddProperty("Ref", THIS)
      Endif
      Return This.Ref
   Endproc
Enddefine

Я не могу получить тот же экземпляр. Любая помощь?

Большое спасибо!

...