Optimizar con Case XXX of

[u1025425]

En este caso no será posible la utilización de case, ya que éste sólo funciona con tipos ordinales.

Es decir, puedes hacer:

case UnEntero of
1: Algo;
2: OtraCosa;
else LoQueSea;
end;

case UnCaracter of
'a': Algo;
'c': Otro;
end;

pero no puedes hacer:

case objeto of
1: Algo;
2: OtraCosa;
else LoQueSea;
end;

De todos modos, puedes usar "else if" para arreglar un poco el código.

if Objeto = MiObjeto1 then
DoSomething
else if Objeto = MiObjeto2 then
DoSomethingElse
else if Objeto = MiObjeto3 then
CañaAlMonoQueEsDeGoma {I.M.}
else LoQueSea;