martes, 15 de julio de 2008

SELECCIÓN MULTIPLE


Cuando se realiza un programa, es frecuente encontrarse con alguna variable que según su valor realizara alguna acción. Esto se podría realizar con muchos If´s anidados, pero resultaria algo enredado, por ejemplo: Si se desea que cuando a tenga el valor 1, c tome el valor 10, cuando a tenga el valor 2, c tome el valor 15, cuando a tenga el valor 3, c tome el valor 20 y cuando no sea alguno de los 3 valores, entonces que c tome el valor 0:



If a = 1 then c := 10 Else

If a = 2 then c := 15 Else

If a = 3 then c := 20 Else

c := 0;



Esta forma de tomar decisiones resulta muy poco ortodoxa. El lenguaje Pascal nos ofrece para dicho propósito otra forma mas fácil de hacerlo. Mediante la palabra reservada case of. La sintaxis de dicha instrucción es la siguiente.



case variable of

valor1: acción1;

valor2: acción2;

....

Else acción N;

End;



Donde variable es el identificador de la variable que será comprobada y valor1, valor2... son los diferentes valores que puede tomar dicha variable. Si tomamos el problema anteriormente planteado, tendremos que la solución sería de este modo:



case a of

1: c := 10;

2: c := 15;

3: c := 20;

Else c:= 0;

End;

1 comentario:

Arsenio Lupín dijo...

Muy interesante tu blog... sobre todo el porque pasar a delphi 2007.

Sobre este artículo, valdría aclarar que el case solo sirve para datos "enumerativos", como Integer, Char, etc, pero que no sirve para un string (por ejemplo).

Igualmente, muy interesante...