invertir cadena de caracteres

Espero que esta función no la quieras utilizar para "encriptar"
passwords -- :-D :

?Reverse("Hola Mundo")
FUNCTION Reverse(tcString)
LOCAL lcRetValue,lnCounter
lcRetValue=""
FOR lnCounter=LEN(tcString) TO 1 STEP -1
lcRetValue=lcRetValue+SUBSTR(lcCadena,lnCounter,1)
ENDFOR
RETURN lcRetValue

Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


isabel correa wrote:

hola grupo.

hay alguna funcion que invierta el contenido de una
cadena de caracteres?
necesito que una cadena que contenga por ejemplo SMOPR
quede en RPOMS

muchas gracias si me pueden colaborar