Eu quero é eliminar, não é limpar.Public variables are unaffected by this form of the RELEASE
command. To release public variables, you must RELEASE them explicitly
or use CLEAR MEMORY.
Código: Selecionar todos
MEMVAR variavel
PROCEDURE Test
PRIVATE variavel
Código: Selecionar todos
PROCEDURE Test
MEMVAR variavel
PRIVATE variavel
Código: Selecionar todos
/* Values returned from __mvScope() function */
#define HB_MV_NOT_FOUND -2 /* not found in the symbols table */
#define HB_MV_UNKNOWN -1 /* not created yet */
#define HB_MV_ERROR 0 /* information cannot be obtained */
#define HB_MV_PUBLIC 1 /* PUBLIC variable */
#define HB_MV_PRIVATE_GLOBAL 2 /* PRIVATE created outside of current function/procedure */
#define HB_MV_PRIVATE_LOCAL 4 /* PRIVATE created in current function/procedure */
#define HB_MV_PRIVATE 6 /* PRIVATE variable */
Código: Selecionar todos
MEMVAR x
PRIVATE x := 10
Código: Selecionar todos
Syntax: harbour <file[s][.prg]|@file> [options]
Options: -a automatic memvar declaration
Depois de uma aula do mestre Quintas sobre OOP já migrei tudo, e o mundo se abriu em possibilidadesItamar M. Lins Jr. escreveu: A forma melhor é começar usar OOP.
Saudações,
Itamar M. Lins Jr.
Código: Selecionar todos
CREATE CLASS PRODUTOSCLASS
VAR oServer
VAR cDefaultPrinter
VAR cReportOption
VAR nPrinterType
VAR dPeriodoInicial INIT (M->DAT_HOJE-30)
VAR dPeriodoFinal INIT (M->DAT_HOJE)
METHOD New( ParamServer ) INLINE ::oServer := ParamServer, Self
METHOD PRODUTOS_MANUTENCAO( )
METHOD PRODUTOS_PESQUISA( )
METHOD PRODUTOS_PESQUISA_COMPRAS( Fornecedor )
METHOD PRODUTOS_PESQUISA_TRANSFERENCIA( FINALIDADE )
METHOD PRODUTOS_PESQUISA_ENTRADA( Fornecedor )
PROTECTED:
VAR IncluiRemoto
VAR AtualizaRemoto
VAR ExcluiRemoto
VAR ConsultaRemoto
VAR cnConnection
VAR aFiliais INIT {}Código: Selecionar todos
VAR oJanela AS OBJECT INIT Nil
VAR oDlg_Thread AS OBJECT INIT "oDlg_Thread"
VAR bBlock AS CODEBLOCK INIT Nil
VAR oTimer AS STRING INIT "oTimerThread"
VAR nTimer AS INTEGER INIT 300 // 5 minutos
VAR cTipo AS STRING INIT "B"
VAR lLiga AS LOGICAL INIT .F.
VAR nFloat AS NUMERIC INIT 0.00
VAR dDataBeneficio AS DATE INIT CTOD("")
VAR aRegAntes AS ARRAY INIT {}
VAR hTable AS HASH INIT {=>}