FiveTech Software tech support forums

Code: Select all  Expand view

FUNCTION Noname()
Local nI
Local a:= {"algo"}
FOR nI:= 1 TO 100
   NoName2(a)
NEXT
RETURN NIL

FUNCTION NoName2(a)
Local b:= {|| msginfo( Str(len(a)) ) }  // <----- Aqui la variable a, llegado un momento determinado, sin razón alguna, tiene el valor NIL
Eval(b)
RETURN NIL 

Code: Select all  Expand view

FUNCTION Noname()
Local nI
Local a:= {"algo"}
FOR nI:= 1 TO 100
   NoName2(a)
NEXT
RETURN NIL

FUNCTION NoName2(aPar)
Local a:= aPar           // <--- Esta asignacion del parametro renombrado como variable local hace que ya no se produzca error.
Local b:= {|| msginfo( Str(len(a)) ) }
Eval(b)
RETURN NIL 

joseluisysturiz wrote:Buen dia, prueba quitando la VAR LOCAL 'nI' de la funcion NoName2() que es igual al del FOR aunque esten en funciones diferentes, es solo una idea, hay cosas de programacion que son tontas y a veces son las mas dificiles de ver o entender...es lo unico que se me ocurreo, saludos...

Code: Select all  Expand view

#include "FiveWin.ch"

MEMVAR nI

FUNCTION Noname()

   Local a:= {"algo"}

   FOR nI:= 1 TO 10 // 100
      NoName2(a)
   NEXT

RETURN NIL

FUNCTION NoName2(a)

   Local b:= {|| msginfo( Str(len(a)) ) }  // 1

   Eval(b)

RETURN NIL
 

Code: Select all  Expand view

FUNCTION Noname()
Local nI
Local a:= {"algo"}
FOR nI:= 1 TO 100
   NoName2(a)
NEXT
RETURN NIL

FUNCTION NoName2(aPar)
Local b:= { | a | msginfo( Str(len(a)) ) }
Eval(b, aPar)
RETURN NIL

 

horacio wrote:Con tu ejemplo no he podido reproducir el error, lo he echo iterar un millón de veces y funciona perfectamente.

Saludos

Code: Select all  Expand view

static a // <--- Declara como static antes de la primera funcion, y no tendrás que psarla porque será visible en todo el PRG
FUNCTION Noname()
Local nI
a:= {"algo"} // <--- Solo hay que darle el valor
FOR nI:= 1 TO 100
   NoName2() // <--- No hay que pasarla
NEXT
RETURN NIL

FUNCTION NoName2()  // <--- No hay que pasarla
Local b:= {|| msginfo( Str(len(a)) ) }  // <----- Aqui la variable a, llegado un momento determinado, sin razón alguna, tiene el valor NIL
Eval(b)
RETURN NIL
 

horacio wrote:Yo utilizo variables static y no he tenido problemas. Muchas de mis rutinas utilizan variables static con el mismo nombre en distintas módulos y no me han generado errores. Puedes aclarar tu afirmación. Gracias.