Pascal/Turbo Pascal - Ayuda con conjuntos

 
Vista:

Ayuda con conjuntos

Publicado por Iksa (11 intervenciones) el 23/04/2004 17:18:21
A ver necesito hacer un conjunto o algo q contenga de las letras de la A-Z y luego las vocales acentuadas á,é,í,ó,ú . Adem´sa luego necesito comprobar q una letra pertenezca el conjunto, ¿¿Cómo se ahce ésto??

Si alguienme puede poner algún ejemplo MUCHÍSIMAS GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con conjuntos

Publicado por Hurricane (73 intervenciones) el 24/04/2004 02:42:52
Para lo que quieres hacer, ésto te puede servir:

{** Comprueba si el caracter "Ch" está en el Conjunto de Letras **}
{** Retorna: TRUE=Si está, y FALSE=Si no está **}
Function Esta_en_el_Conjunto(Ch :Char) :Boolean;
Const
{** Cadena que contendrá el Conjunto de caracteres **}
ConjuntoLetras :String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
'abcdefghijklmnopqrstuvwxyzáéíóú';

Begin
Esta_en_el_Conjunto := (Pos(Ch, ConjuntoLetras)>0);
End; {** Esta_en_el_Conjunto **}


Espero que te sea de utilidad. Saludos ;-)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con conjuntos

Publicado por iksa (11 intervenciones) el 24/04/2004 11:44:58
Muchísimas gracias ya lo tengo eso echo y parece q funciona bien jeje
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar