Optimizar con Case XXX of

[[gatosoft]]

Para este tipo de casos, yo tengo esta función:

{**************************************}
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:

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:

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.