Caso de programación Vfp

Texto1 es la expresión de entrada y TEXT2 es el resultado de salida. El código del botón es el siguiente:

cori ginal = all trim(this form . text 1. value)

n=LEN(cori ginal)

cFinal= " "

Para i=n a 1 tamaño de paso -1

cFinal=cFinal+SUBSTR(cOriginal, I, 1)

Fin

p>

este formulario.text2.Value=cFinal

este formulario.text2.Refresh