Hay quien prefiere definir una funcion de este estilo para poder utilizar cases:
Código:
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:
Código:
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