Ayuda con tMemo

[chino150]

hola a todos
mi consulta es la siguiente tengo este projecto en la universidad
colocar un memo y un boton, cuando pulse el boton debe demostrar un mensaje informado la cantidad de letras, vocales y consonantes.

nunca e usado el componente TMemo porfavor ayuden me en esto...


gracias de antemano por su ayuda

[roman]

La propiedad Text del TMemo contiene todo el texto en un string. Sólo tienes que recorrer la cadena y examinar cada caracter para saber si es vocal o consonante.

// Saludos

[chino150]

Empezado por roman

La propiedad Text del TMemo contiene todo el texto en un string. Sólo tienes que recorrer la cadena y examinar cada caracter para saber si es vocal o consonante.

// Saludos

disculpe pero no entiendo me puede demostrar un codigo

[ContraVeneno]

A lo que Roman se refiere, es que tienes que hacer un ciclo for:

Desde 1 hasta la última línea del memo
Desde la primer letra hasta la última de la línea
si es vocal entonces
vocales mas uno
si no
consonantes mas uno

Muestras total que es igual a las consonantes mas las vocales
Muestras vocales y muestras consonantes

Algo así.. mas o menos... me quedaría la duda de como manejar los caracteres especiales en caso de que existiera alguno, pero si como mencionas, es tarea de tu escuela, pues no creo que haya que preocuparse por eso.

La propiedad Lines del Memo y su propiedad Count te pueden servir de mucho.

Saludos.

Edito... como que me distraje... Roman propone algo más sencillo... yo me quedé pensando en ir línea por línea, pero ciertamente es más sencillo recorrer el texto como menciona Roman...

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

[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