Variables publicas

[surGom]

Hola mi consulta es como declaro una variable pública para que cuando compilo, no me arroje el siguiente error


origen.prg(241) Warning W0001 Ambiguous reference: 'OAPP'
origen.prg(324) Warning W0001 Ambiguous reference: 'OAPP'
ETC,...
totsto1.PRG(18) Warning W0001 Ambiguous reference: 'OAPP'
ETC...

en el módulo principal lo declaro así

Code: Select all  Expand view  RUN

FUNCTION origen()
  LOCAL oBrush            // Almacena objeto BRUSH
  LOCAL oBar     // Almacena objeto BUTTONBAR
  LOCAL oCursorMano
  LOCAL oICON, surge
  LOCAL oBmp
  LOCAL oFont
  LOCAL cinit := GetWinDir()+"\mega.ini"
  LOCAL memo:= GetpvProfString("camino","curpath",,cinit)
  LOCAL nBut := array(6)
  LOCAL cPantalla := GetpvProfString("pantalla","tipopan",,(GetWinDir()+"\mega.ini"))
  LOCAL cUsuario := (GetpvProfString("usuario","nombre",,(GetWinDir()+"\mega.ini")))



  public oApp := TApplication()

Gracias

[Patricio Avalos Aguirre]

Hola

puedes hacerlo de dos manera
al principio del modulo colocar

MEMVAR VariablePublica

lo otro que puedes hacer, es la que yo utilizo es anteponer un M->

M->variablePublica

espero que te sirva

[xmanuel]

Yo personalmente odio las variables públicas y privadas...

Para las privadas se usa una local y ya está...

Para las publicas yo suelo usar una static global o sea declarada al principio fuera de las funcones.
En tu caso podría ser algo así:

static oApp //<--------------------------------- Aqui la defino

FUNCTION origen()
...
oApp := TApplication() // <---------------------------- Aquí la inicializo
...
return

Con eso sería visible para todo tu prg

[surGom]

Manuel ya probé con static y global, con static no reconoce en las otras funciones del programa la variable, y con global hace exactamente lo mismo

Luis

[surGom]

Manuel lo hice como me recomendas y el módulo principal no me muestra el error pero en todos los demás que hago referencia a la variable sigue de la misma manera

Code: Select all  Expand view  RUN

#include "FIVEWIN.CH"


STATIC oVentPrinc, oBmp
MEMVAR oApp


//------------------------------------------------------------//

FUNCTION origen()
  LOCAL oBrush            // Almacena objeto BRUSH
  LOCAL oBar     // Almacena objeto BUTTONBAR
  LOCAL oCursorMano
  LOCAL oICON, surge
  LOCAL oBmp
  LOCAL oFont
  LOCAL cinit := GetWinDir()+"\mega.ini"
  LOCAL memo:= GetpvProfString("camino","curpath",,cinit)
  LOCAL nBut := array(6)
  LOCAL cPantalla := GetpvProfString("pantalla","tipopan",,(GetWinDir()+"\mega.ini"))
  LOCAL cUsuario := (GetpvProfString("usuario","nombre",,(GetWinDir()+"\mega.ini")))




 oApp := TApplication()


  SETEO()                 //DOY PARAMETROS DE CLIPPER

 

Luis

[sysctrl2]

en tu compilacion suprime /w

$(HBDIR)\bin\harbour $< /N /m /w

saludos.

[surGom]

Sí así lo hago cuando compilo con verce, pero baje el xedit y deje la configuración standard y saltan los errores, me sirvio para algunas variables que tenía sin declarar, y pensé que se podía arreglar lo de esta variable.


Luis

[Armando]

Luis:

Haz lo mismo para todos los PRGs, agrega la linea MEMVAR oApp al principio


Saludos

[surGom]

Gracias Armando ahora sí y todos por sus respuestas

Luis