sintaxis de select case O___o

[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