Algun ejemplo de como usar TPUBLIC

[Compuin]

Hola Foro,

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

Gracias de antemano

[AngelSalom]

Aquí te va :

Code: Select all  Expand view

#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)  

[Compuin]

Muchas gracias

[AngelSalom]

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

Code: Select all  Expand view

oPub:Set("nVariable1",999)