Fecha actual Mar Jul 01, 2025 5:20 pm

Todos los horarios son UTC + 1 hora [ DST ]




Nuevo tema Responder al tema  [ 5 mensajes ] 
Autor Mensaje
NotaPublicado: Lun Feb 26, 2007 10:56 pm 

Registrado: Vie Feb 16, 2007 3:49 pm
Mensajes: 4
Alquien me puede decir como se inicializan variables píblicas en C3

para cuando vaya a una función retorne con el valor.

Saludos

Adhemar


Arriba
 Perfil  
Responder citando  
 Asunto: Re:
NotaPublicado: Mar Feb 27, 2007 1:06 pm 

Registrado: Dom Feb 12, 2006 3:28 pm
Mensajes: 54
Pon PUBLIC NombreVariable := ValorPorDefecto en el evento OnCreate del formulario. También puedes usarlo en cualquier otro método, evento, procedimiento o función del proyecto, pero asegúrate de que lo ejecutas para que se declare la variable.

Un saludo.


Arriba
 Perfil  
Responder citando  
 Asunto: Re:
NotaPublicado: Mar Feb 27, 2007 2:29 pm 

Registrado: Vie Feb 16, 2007 3:49 pm
Mensajes: 4
Sale un mensaje Warning: assuming reference memvar:SUMA

Ej.
METHOD Prueba( oSender ) CLASS TForm1
Local nInvertido
PUBLIC Suma:=0

?Suma

return

Function Calcula()
Suma:=Suma+10
Return


Arriba
 Perfil  
Responder citando  
 Asunto: Re:
NotaPublicado: Mar Feb 27, 2007 7:37 pm 
Avatar de Usuario

Registrado: Mar Oct 11, 2005 6:58 pm
Mensajes: 138
Ubicación: España
Sale un mensaje Warning: assuming reference memvar:SUMA

Ej.
METHOD Prueba( oSender ) CLASS TForm1
Local nInvertido
PUBLIC Suma:=0

?Suma

return

Function Calcula()
Suma:=Suma+10
Return


Hola acuellar;
Para que te funcione el ejemplo que has puesto debes de hacerlo tal como yo te muestro:

METHOD Prueba( oSender ) CLASS TForm1

Calcula()

return

Function Calcula()
Local Suma:=0

Suma:=Suma+10

?? Suma

Return Nil

Recibe un saludo
Fraguibo


Arriba
 Perfil  
Responder citando  
 Asunto: Re:
NotaPublicado: Mié Feb 28, 2007 10:20 am 
Avatar de Usuario

Registrado: Dom Oct 09, 2005 11:26 am
Mensajes: 362
Ubicación: Salamanca - España
acuellar escribió:
Sale un mensaje Warning: assuming reference memvar:SUMA

Ej.
METHOD Prueba( oSender ) CLASS TForm1
Local nInvertido
PUBLIC Suma:=0

?Suma

return

Function Calcula()
Suma:=Suma+10
Return


Hola.

Dos apuntes:
1º Para evitar el mensaje de error que te sale tienes que añadir la declaración: MEMVAR Suma
al principio de tu prg.
2º Yo colocaria linea PUBLIC Suma, tambien, al pricipio de tu prg, por claridad y buenas maneras.... :lol:

_________________
Un saludo.
Jesús P. Melgar Velasco


Arriba
 Perfil  
Responder citando  
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 5 mensajes ] 

Todos los horarios son UTC + 1 hora [ DST ]


No puede abrir nuevos temas en este Foro
No puede responder a temas en este Foro
No puede editar sus mensajes en este Foro
No puede borrar sus mensajes en este Foro
No puede enviar adjuntos en este Foro

Buscar:
Saltar a: