Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

funciones en eventos

20/10/2004 - 05:04 por Fernando Hernandez Linares | Informe spam
Ayuda Hacer una pregunta
Hola a todos!!!! Bueno espero que no les importune con algo tan trivial,
pero soy novato en VFP7, asi que les explicare: Tengo un codigo que he
copiado de este portal:

Función recursiva en VFP (Mensajes de Ricardo Passians y Luis María Guayán)
? ReduceAUnEspacio(" Reducir los espacios entre palabras a
solo un espacio")

FUNCTION ReduceAUnEspacio(tcCadena)

RETURN IIF(AT(SPACE(2), tcCadena)=0, ;

ALLTRIM(tcCadena), ;

ReduceAUnEspacio(STRTRAN(tcCadena, SPACE(2), SPACE(1))))

ENDFUNC

el prolema viene que intente meterlo en el evento click de un boton pero
me sale un mensaje que no puede haber contener procedimientos o
definiciones de clases anidadas! Busque informacion aqui mismo sobre el
tema y al intentar leer las respuestas no aparecen ya publicadas, alguien
me puede decir donde colocar ese codigo, por favor??

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Luis María Guayán
20/10/2004 - 05:22 | Informe spam
Debes poner esta función en tu archivo de procedimientos, por ejemplo
MisProcs.prg y en tu programa debes tener una sentencia como la siguiente:

SET PROCEDURE MisProcs ADDITIVE

En el método Click del botón, solo llamas a la función:

lc = ReduceAUnEspacio(" Reducir los espacios entre palabras a solo
un espacio")
MESSAGEBOX(lc)

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos



"Fernando Hernandez Linares" escribió en el mensaje
news:
Hola a todos!!!! Bueno espero que no les importune con algo tan trivial,
pero soy novato en VFP7, asi que les explicare: Tengo un codigo que he
copiado de este portal:

Función recursiva en VFP (Mensajes de Ricardo Passians y Luis María Guayán)
? ReduceAUnEspacio(" Reducir los espacios entre palabras a
solo un espacio")

FUNCTION ReduceAUnEspacio(tcCadena)

RETURN IIF(AT(SPACE(2), tcCadena)=0, ;

ALLTRIM(tcCadena), ;

ReduceAUnEspacio(STRTRAN(tcCadena, SPACE(2), SPACE(1))))

ENDFUNC

el prolema viene que intente meterlo en el evento click de un boton pero
me sale un mensaje que no puede haber contener procedimientos o
definiciones de clases anidadas! Busque informacion aqui mismo sobre el
tema y al intentar leer las respuestas no aparecen ya publicadas, alguien
me puede decir donde colocar ese codigo, por favor??


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Preguntas similares

 

Busqueda sugerida :