sintaxis de select case O___o

[NSL94]

Buenas a todos recopilando informacion por el foro llegue a la conclusion de que un select case se escribia mas o menos asi:

select
case a
when 1 then showmessage('1')
when 2 then showmessage('2')
etc...
end

pero escribiendo yo:

select
case tabla1.FieldByName('campo1').AsString
when 'eso' then showmessage('eso')
when 'lootro' then showmessage('lootro')
end

me falla y me dice que me falta un ";" en la linea "case tabla1.FieldByName('campo1').AsString"

Alguien me podria decir cual seria la sintaxis corecta?
Gracias a todos, y que tengais un buen dia... que ya estamos a jueves!!

[Mick]

Umm que raro, esa sintaxis no se parece a nada que haya visto en delphi XD. La sintaxis correcta es asi:

case n of
1: ShowMessage('el uno');
2: ShowMessage('el dos');
3: begin
      ShowMessage('el tres');
      ShowMessage('el tres otra vez');
    end;
end;

ATENCION: Solo se puede usar para tipos ordinales (enteros, chars) pero no para cadenas de caracteres, en este caso tendras que usar IFs.

[[Lepe]]

la sentencia original "select case" es del lenguaje SQL, usado por ejemplo dentro de un TQuery (en su propiedad sql), en un procedimiento almacenado / disparador, etc.

Saludos

[NSL94]

Con razon me pide punto y comas por todo los sitios xDDD -_-'
Erf eso de saber la logica pero no la sintaxis es lo peor, pero weno al menos esperemos que alguno se haya reido leyendo esta pocas lineas.

En fin para volver al tema, me decis que no existe ninguna manera de hacer 1 select case de Strings? tan solo acepta numericos y chars
Ams... Eske mi madre ya lo decia, niño pa que te complicas la vida, tu usa las herramientas que ya conozcas... Amos que tendre que volver a poner los ifs xDDD
Enga un saludo y gracias, y si a alguien se le ocure como hacer el select case con string que no se corte
---Paz---

[[Lepe]]

Empezado por NSL94

Enga un saludo y gracias, y si a alguien se le ocure como hacer el select case con string que no se corte

Ocurrencias tenemos muchas... pero es Delphi quien no lo permite, así que ... donde no hay, no se puede rascar

Pueden ser char, integer y tipos enumerados. Con strings se puede hacer algo... pero en definitiva es un char, por ejemplo:

Código Delphi [-]
var  s:string;
begin 
 s:= 'Mio';
 // "s" se puede interpretar como un array de caracteres, 
// empieza en el índice 1.
Case s[1] of
 'M' : lo que sea;
 's' : lo que sea;
end;

PD: De reirnos nada, todos nos hemos hecho esta pregunta tarde o temprano .

Saludos

[Mick]

Hay quien prefiere definir una funcion de este estilo para poder utilizar cases:

function SearchString(const Str:string; const List:array of string): Integer;
begin
  Result:= High(List);
  while (Result>=0) AND (Str<>List[Result]) do Dec(Result);
end;

Y despues se usaria del siguiente modo:

 case SearchString( 'gato', [ 'perro', 'gato' ,'serpiente' ]) of
    0: ShowMessage('Es un perro');
    1: ShowMessage('Es un gato');
    2: ShowMessage('Es una serpiente');
   -1: ShowMessage('No conozco ese animal');
 end;

Saludos