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 Inc(NumVoc);
Para el caso de las consonantes la condicion sería así:
Código Delphi
[-]if Upcase(Memo1.Text[i]) in Consonantes then Inc(NumConso);
Creo que ya te lo hemos hecho todo...amigo
chino150.
Saludos...