sintaxis de select case O___o

[[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