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: 729

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