Para este tipo de casos, yo tengo esta función:
Código:
{**************************************}
Function MyCase(aCadena:string; aLista: array of String):Integer;
var i:Integer;
begin
Result:=-1;
for i:=Low(aLista) to High(aLista) do
begin
if Uppercase(aCadena)=Uppercase(aLista[i]) then
begin
result:=i;
break;
end;
end;//for
end;
{***************************************}
Y la utilizo de la sigiente manera:
Código:
case MyCase(VariableTexto,['perro','gato','canario']) of
0:do_perro;
1:do_gato;
2:do_canario;
end; //case
para el caso que plantea TikiMore, seria:
Código:
case MyCase(ActiveControl.name,['DBEdit1','dbEdit2','dBeDiT3']) of
0:...
1:...
2:...
end; //case
No es la gran cosa, pero ayuda por lo menos a ordenar el codigo.
Nota: La funcion no es sensible a mayusculas....
chao.