clases...

[goosfancito]

hola

necesito completar estos datos y acceder a ellos desde varias clases (para no usar variables globales)

Code: Select all  Expand view

class TDatos
   data nId
   data cDomicilio
   data cPais
end class

Estando dentro de la clase TPrimera poder hacer esto

Code: Select all  Expand view

o:= TDatos():new()
o:nId:= 1
o:cDomicilio:= "aaaa"
o:cPais:= "Argentina"

y desde la clase TSegunda poder acceder a esos datos e incluso poder cambiarlos

Code: Select all  Expand view

msginfo(nId)
msginfo(cDomicilio)
cPais:= "nuevo pais"
 

Como lo hago? para no usar variables globales.

[goosfancito]

les dejo un proyecto vacio

https://drive.google.com/file/d/15z0bbDLeG0844KWZp2LVy1UNAhftmJD-/view?usp=sharing

[Antonio Linares]

viewtopic.php?p=231817#p231817

[artu01]

password.prg

Code: Select all  Expand view

#INCLUDE "FiveWin.ch"
#INCLUDE "Objects.ch"

create class PassWord
   data cFile
   data cRuta
   data nIntento
   data cMsje

   method new() CONSTRUCTOR

endclass

/* --------------------------------------------------------- */
method new() CLASS PassWord


   ::cPath    := "ruta default"


return self
 

main.prg

Code: Select all  Expand view

 oPassWord := PassWord():new()
oPassWord:cPath:="c:\turuta"