FoxPro/Visual FoxPro - ayuda con array

o0la pues tengo una pregunta, tengo un editbox y pues digamos ke el usuario escribe lo ke sea y pues tiene ke transformar el texto a upper y lower bueno lo ke hice fue lo siguiente; en un array meto todas las letras y las transformo y el problema sta en ke no puedo mostrar todo el contenido del array en el editbox no se si exista un comando mas o menos es esto lo ke kiero:

el usuario tecleo en el editbox: 1 2 3 4

el array se llena con los datos ke tecleo
array(1,2,3,4)

el editbox debe regresar lo siguiente

1 2 3 4

eso es todo muchas gracias =)

Para que el array?

**transformar a UPPER

thisform.editbox.value = upper(thisform.editbox.value)

**transformar a LOWER

thisform.editbox.value = lower(thisform.editbox.value)

public vLongitud,vCadena
STORE ALLTRIM(thisform.edit1.value) TO vCadena
vLongitud = LEN(ALLTRIM(thisform.edit1.Value))

PUBLIC array miArreglo(vLongitud)
i=1
DO WHILE i <= vLongitud
STORE SUBSTR(vCadena,i,1) TO miArreglo(i)
i=i+1
ENDDO
i=1
DO WHILE i<= vLongitud
IF MOD(i,2) = 0
STORE UPPER(miArreglo(i)) TO miArreglo(i)
ELSE
STORE LOWER(miArreglo(i)) TO miArreglo(i)
ENDIF
i=i+1
enddo


kiero desplegar todo el contenido del array en el editbox

gracias por la ayuda

suponiendo que este codigo lo tienes en el LostFocus de edit1, a continuación del Enddo pone:

vMuestroCadena=""
for i = 1 to alen(miarreglo)
vMuestroCadena=vMuestroCadena+miArreglo(i)
endfor
this.value = vMuestroCadena

espero que sea lo que necesitas.

si gracias por la ayuda =)