Código en Visual Fox Pro de Como Saber si una Palabra es Palindromo

STORE SPACE(35) TO texto,substraer,concatenar

texto= LEN(ALLTRIM(ThisForm.Text1.Value))

FOR i =texto TO 1 STEP -1

  substraer =SUBSTR(ALLTRIM(thisform.text1.Value),i,1)

  concatenar=concatenar+substraer

  

NEXT

IF ALLTRIM(thisform.text1.Value)==ALLTRIM(concatenar) then

=MESSAGEBOX('Si es palindromo',0,'Haz encontrado una palabra palindromo')

ELSE

=MESSAGEBOX('No es palindromo',0,'intente con otra palabra')

endif

Descargar

https://mega.nz/#F!7Qs3AY5L!-I2CenPwMyHGOTuwHz3g1w

GENERACION ITSI