topic-32266

Board index FiveWin para Harbour/xHarbour Algun ejemplo de como usar TPUBLIC

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Algun ejemplo de como usar TPUBLIC
Posted: Thu Apr 14, 2016 12:26 AM

Hola Foro,

Tendra alguien algun ejemplo de como utilizar la clase TPUBLIC definiendo variables globales y/o para crear arreglos dinamicos ?

Gracias de antemano

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Algun ejemplo de como usar TPUBLIC
Posted: Thu Apr 14, 2016 07:08 AM

Aquí te va :

Code (fw): Select all Collapse

#include "fivewin.ch"

Function Main()
Public oPub
  
  // Crear clase
  oPub:=TPublic():New()

  // Poner valores
  oPub:Add ("nVariable1",1) 
  oPub:Add ("cVariable2","Prueba")
  
  // Recoger valores
  msginfo (oPub:Get("cVariable2")

  // Libero
  oPub:Release()
  oPub:End()
Return (nil)

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Algun ejemplo de como usar TPUBLIC
Posted: Thu Apr 14, 2016 04:30 PM

Muchas gracias

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Algun ejemplo de como usar TPUBLIC
Posted: Thu Apr 14, 2016 04:45 PM

Se me olvidó. Para asignar un valor a una variable ya definida :

Code (fw): Select all Collapse

oPub:Set("nVariable1",999)

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

FiveTech Support Forums

Continue the discussion