Ayuda con CASE
 

Alguien tiene algun ejemplo simple para usar un CASE?
Tengo que preguntar si hay datos en cuatro campos, pero pueden suceder combinaciones tambien, que haya solo tres, o dos, o uno, y combinados entre si.
En vez de matarme haciendo miles de IF, pensaba hacer un case para cada uno, en total serían 15 casos posibles. Asi que si alguien me puede facilitar un ejemplo bien de como se usa, lo agradecería.

Yanina Genia

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

Yanina Bienvenid@ al club.

Si tienes que preguntar por campos requeridos, este hilo te evitaría crear CASEs, realizando un bucle directamente sobre los campos del Dataset.

El truco podría ser algo así:

Código Delphi [-]

var Error : string;
begin
for I := 0 to DataSet.FieldCount - 1 do
  if DataSet.Fields[i].IsNull then
      Error := Error + DataSet.Fields[i].DisplayName +' está vacio' #10#13; 
// las almohadillas es un salto de linea.

if lenght(Error)>0 then
 ShowMessage(Error)

Espero te sirva. Un saludo