Ayuda con CASE

[serhasae]

Creo que no te has molestado ni siquiera en mirarte la ayuda del case del delphi. Pero seria, la variable seria numerica en este ejemplo


case variable of
1,2: showmessage ('He pulsado el 1 o el 2');
3: showmessage ('Aqui ando');
Else // en caso de que no valga ni 1,2,3 la variable.
showmessage ('La variable no vale ni 1 ni 2 ni 3');
end;

si quieres que la variable cumpla varias por ejemplo >5 y <4, el case no te valdra porque su sintaxis es, tendras q usar condicionales if, dentro del case:

case Ordinal expression of
Ordinal value {,Ordinal value...} : Statement;
{...}
else Statement;
end;

Saludos. Serhasae