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;
|