Código Delphi [-] if Upcase(Memo1.Text[i]) in ['A','E','I','O','U','Á','É','Í','Ó','Ú'] then Inc(NumVoc); // NumVoc: variable de tipo Integer que acumula número de vocales
if Upcase(Memo1.Text[i]) in ['A','E','I','O','U','Á','É','Í','Ó','Ú'] then Inc(NumVoc); // NumVoc: variable de tipo Integer que acumula número de vocales