topic-40170

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

clases...
Posted: Thu Mar 25, 2021 09:19 AM

hola

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

class TDatos
   data nId
   data cDomicilio
   data cPais
end class

Estando dentro de la clase TPrimera poder hacer esto

Code (fw): Select all Collapse

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 (fw): Select all Collapse

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

Como lo hago? para no usar variables globales.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: clases...
Posted: Thu Mar 25, 2021 09:29 AM

les dejo un proyecto vacio

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

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: clases...
Posted: Thu Mar 25, 2021 10:08 AM

viewtopic.php?p=231817#p231817

regards, saludos

Antonio Linares
www.fivetechsoft.com

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: clases...
Posted: Thu Mar 25, 2021 07:07 PM

password.prg

Code (fw): Select all Collapse

#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 (fw): Select all Collapse

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

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

FiveTech Support Forums

Continue the discussion