Olá!
Preciso usar variáveis PRIVATE, mas com "-w3" não posso.
Sendo uma memvar publica, neste caso como apagar ela depois ?
Saudações,
Itamar M. Lins Jr.

Moderador: Moderadores
Public variables are unaffected by this form of the RELEASE
command. To release public variables, you must RELEASE them explicitly
or use CLEAR MEMORY.
MEMVAR variavel
PROCEDURE Test
PRIVATE variavel
PROCEDURE Test
MEMVAR variavel
PRIVATE variavel
/* 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 */
MEMVAR x
PRIVATE x := 10
Syntax: harbour <file[s][.prg]|@file> [options]
Options: -a automatic memvar declaration
Itamar M. Lins Jr. escreveu:A forma melhor é começar usar OOP.
Saudações,
Itamar M. Lins Jr.
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 {}
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 {=>}
Usuários vendo este fórum: Google [Bot] e 6 visitantes