Ayuda con tMemo

[chino150]

Empezado por 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.

esto es lo que yo e logrado esta hora

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 i,cont:Integer;
begin
Cont := Length( Memo1.Text);
 ShowMessage('La cantidad de letras escritas son: '+(IntToStr(Cont)));
  end;

end.

no e podido lo de las vocales y consonantes

[ContraVeneno]

hasta ahí vas bien... ahora sigue hacer un ciclo For para recorrer el texto.

Desde i = 0 hasta cont -1

[chino150]

Empezado por ContraVeneno

hasta ahí vas bien... ahora sigue hacer un ciclo For para recorrer el texto.

Desde i = 0 hasta cont -1

disculpe la molestia me pudes ayudar con el codigo estoy bloquiado y debo entregar este projecto hoy

gracia mil

[[Al González]]

Hola. ¿Qué carrera estudias y en que grado vas?

Algo de seudocódigo:

Vocales = 0
Consonantes = 0

Ciclo para recorrer la variable I desde 1 hasta la longitud de Memo1.Text
  Si el carácter de la posición I de Memo1.Text es vocal entonces:
    Incrementar en uno la variable Vocales
  Else
    Si el carácter de la posición I de Memo1.Text es consonante entonces:
      Incrementar en uno la variable Consonantes

[chino150]

Empezado por Al González

Hola. ¿Qué carrera estudias y en que grado vas?

Algo de seudocódigo:

Vocales = 0
Consonantes = 0
 
Ciclo para recorrer la variable I desde 1 hasta la longitud de Memo1.Text
  Si el carácter de la posición I de Memo1.Text es vocal entonces:
    Incrementar en uno la variable Vocales
  Else
    Si el carácter de la posición I de Memo1.Text es consonante entonces:
      Incrementar en uno la variable Consonantes

estudio ingeneria informatica y estoy en secundo semestre

[ecfisa]

Hola Chino150.

Te doy una ayudita como evaluar las vocales dentro del for...

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

Saludos.

[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...

[chino150]

Esto es lo que e logrado gracias a su ayuda

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 i,cont,numVoc, numConso :Integer;
 const
 Alfabeto=['A'..'Z'];
 Vocales=['A','E','I','O','U','Á','É','Í','Ó','Ú'];
 Consonantes=Alfabeto-Vocales;
begin
NumVoc := 0;
NumConso := 0;
for i:= 0 to Length(Memo1.Text) - 1 do begin
 if UpCase(Memo1.Text[i]) in Vocales then
 Inc(NumVoc);
 if UpCase(Memo1.Text[i]) in Consonantes then
  Inc(NumConso);
Cont := Length( Memo1.Text);
 ShowMessage(' letras: '+(IntToStr(Cont)) + ' Vocales: '  + (IntToStr(NumVoc))  +'Consonantes:  '+ (IntToStr(NumConso))); ;
  end;
    end;
end.

pero debo de darle varios click al boton del mensaje para llegar al resultado final.

[rgstuamigo]

Empezado por chino150

Esto es lo que e logrado gracias a su ayuda
...
...
...
pero debo de darle varios click al boton del mensaje para llegar al resultado final.

El problema que veo es que el ShowMessage lo has puesto dentro del ciclo for; la idea principal es que primero se ejecute el ciclo(se haga todo el calculo necesario para saber la cantidad de vocales,consonantes,etc) y al final recien se muestre los resultados, fuera del ciclo for.
De ésta manera:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 i,cont,numVoc, numConso :Integer;
 const
 Alfabeto=['A'..'Z'];
 Vocales=['A','E','I','O','U','Á','É','Í','Ó','Ú'];
 Consonantes=Alfabeto-Vocales;
begin
NumVoc := 0;
NumConso := 0;
for i:= 0 to Length(Memo1.Text) - 1 do begin //<- aqui empieza el ciclo for
 if UpCase(Memo1.Text[i]) in Vocales then
 Inc(NumVoc);
 if UpCase(Memo1.Text[i]) in Consonantes then
  Inc(NumConso);
  end;//<-Aqui termina el ciclo for 
Cont := Length( Memo1.Text);
 ShowMessage(' letras: '+(IntToStr(Cont)) + ' Vocales: '  + (IntToStr(NumVoc))  +'Consonantes:  '+ (IntToStr(NumConso))); ;
    end;
end.

Nota: seguro está que tu código se puede optimizarlo mejor, pero como eres nuevo en programacion no te voy a exigir demasiado.
Saludos..