Ayuda con tMemo

[rrf]

Hola.

Si el memo se llama Memo1, obtienes con la propiedad Text todo el contenido del memo de esta forma Memo1.Text

Lo que haría sería utilizar un bucle "For". Busca en las ayudas y verás como hacerlo. En la práctica, escribe For y luego pulsa Ctrl+J, cuando te aparezcan varias opciones, pulsa directamente Enter y te escribirá casi todo el código.

• Tienes que declarar 3 variables integer y 1 string.
• Asigna el contenido de Memo1.text a la variable string.
• Recorre cada uno de los caracteres de la variable string con el bucle "For". Si la variable es "a" para conocer cual es el tercer caracter usarías "a[3]". Puedes sustituir el valor 3 por el valor de la variable del "For".
• Ojea en las ayudas Length, pues te será necesario.
• Comprueba si cada caracter está incluido entre las vocales, consonantes y lo que te hayan pedido. Para ello, por ejemplo, pondría el caracter en minúscula, y vería si está incluido en una cadena con todas las vocales ('aeiou') en minúscula. Para hacer esto, busca en las ayudas las funciones Lowercase y pos.
• Si está contenido, utiliza if...then (ojea las ayudas) para incrementar el contador de vocales (una de la variables integer).
• Lo mismo harías con las consonantes.
• Finalmente presenta el resultado con un mensaje. Ojea en las ayudas Showmessage y InttoStr.

Creo que con toda esta información y un par de ratos que le dediques, lo tienes resuelto.

Espero que te sirva.

Recibe un saludo.