Ayuda con tMemo

[rgstuamigo]

Yo te voy a dar otra ayudita para saber si un caracter es vocal o consonante.
Lo mejor que veo es declarase algunas constantes de esta forma:

Código Delphi [-]
const
Alfabeto=['A'..'Z'];
Vocales=['A','E','I','O','U','Á','É','Í','Ó','Ú'];
Consonantes=Alfabeto-Vocales;

De esa forma el código propuesto por ecfisa queda de la siguiente manera:

Código Delphi [-]
if Upcase(Memo1.Text[i]) in Vocales then //<-Vocales ya está definido arriba
     Inc(NumVoc);  // NumVoc: variable de tipo Integer que acumula número de vocales

Para el caso de las consonantes la condicion sería así:

Código Delphi [-]
if Upcase(Memo1.Text[i]) in Consonantes then //<-Consonantes ya está definido arriba
     Inc(NumConso);  // NumConso: variable de tipo Integer que acumula número de consonantes

Creo que ya te lo hemos hecho todo...amigo chino150.
Saludos...