como saber c uma variavel exite numa funcao em tempo de exec

[juniorcamilo]

Amigos c um funcao tipo:

Código: Selecionar todos

 Function TESTE(a,b)
Local a, b
......
if a == b
   a := cvar
else
   b := cvar
endif
? cVar
? a
? b
.......
return .t.

a variavel 'cvar' nao esta declarada em uma chamada a esta funcao mas em outras chamada de outro lugar do prog. ela é declarada e 'private', tipo, aquela coisa, agente vai programando e programando e programando, ai c esquece de que em uma funcao de tempos atras criada tem uma variavel que so c usa em outra chamada, tem possibilidade d quando agente c deparar com 'variavel nao existe' colocar um if tipo c ela nao esta declarada ai agente declara só para passar pela funcao?

[Itamar M. Lins Jr.]

Amigos c um funcao tipo:

Código: Selecionar todos

 Function TESTE(a,b)
//Local a, b ISSO não é necessário, já tem em cima
......
if valtype(cVar) = 'U' // undefined (não definida)
   return .f.
endif
if a == b
   a := cvar
else
   b := cvar
endif
? cVar
? a
? b
.......
return .t.

Saudações
Itamar M. Lins Jr.

[Maligno]

O que eu usaria:

Código: Selecionar todos

function ExistVar(cName)
local lFound := .T.
local bError := ErrorBlock({|o|Break(o)})
begin sequence
    &cName := &cName
recover
    lFound := .F.
end
ErrorBlock(bError)
return lFound

[vailton]

Se a variavel for PUBLIC ou PRIVATE e o valor diferente de NIL dá para usar:

Código: Selecionar todos

function ExistVar(cName)
return TYPE(cName) <> "U"

[Maligno]

Aliás, em tempo: nunca uso isso e acho que o ideal é nunca precisar usar esse tipo de teste. Variável não declarada é erro de lógica, muito embora a linguagem permita, o que na minha opinião, é um erro pior ainda.

[juniorcamilo]

Aliás, em tempo: nunca uso isso e acho que o ideal é nunca precisar usar esse tipo de teste. Variável não declarada é erro de lógica, muito embora a linguagem permita, o que na minha opinião, é um erro pior ainda.

com toda certeza erro puro da minha logica,,, so que infelismente as vezes por pressa e nao testar acaba fazendo muita coisa com uma unica funcao que pra sair caçando onde chama ela aqui e ali,, e foda... mas é foda mais ainda eu ver que a solucao é bem simples para isso,rsrsrsr

Obrigado a todos..

[Maligno]

Já tem o ditado: "a pressa é inimiga da perfeição, e para o Muprhy a perfeição é como alho pro vampiro". ))
Mas felizmente, como você disse, a solução é simples. Menos mal.

[ANDRIL]

Tente colocar no inicio do seu programa a variavel que esta causando erro. Apenas defina ela como por exemplo, private cVar.