outra d�vida de poo

Question

considerem as classes:[code:1:bb6347fa18]type  TCachorro = class(tobject)  private    Flatido: string;    function getLatido: string;    procedure SetLatido(const Value: string);  protected    Mordida...

Massuda · Answer

A diferen�a � que usando o [b:aedda8f670]as[/b:aedda8f670], o compilador gera c�digo adicional que verifica se � poss�vel fazer de modo seguro o typecast de uma classe para a outra (gera exce��o se n�o for seguro) enquanto da segunda forma o compilador acredita que voc� sabe o que est� fazendo.

O que � typecast seguro? Vamos supor que...

type 
  TPitBull = class(Tcachorro)
  public
    Manso: Boolean;
  end;

...nesse caso n�o � seguro fazer o typecast de TCachorro para TPitbull pois TPitbull possui membros/m�todos que n�o existem em TCachorro. O [b:aedda8f670]as[/b:aedda8f670] deve gerar uma exce��o; dependendo de diversos fatores, pode ser que voc� consiga usar o () e for�ar o typecast, mas a� estar� funcionando por uma feliz coincid�ncia de fatores.

Por outro lado, como TPitbull � derivado de TCachorro, o typecast de TPitbull para TCachorro � seguro pois a classe TPitbull herdou as caracter�sticas de TCachorro; nesse caso o [b:aedda8f670]as[/b:aedda8f670] deve funcionar sem problemas.

Vitor Rubio · Answer

Valew! Isso explica muita coisa que eu ignorei durante muito tempo.......

Michael · Answer

Typecasts via [b:3b19a781bf]Tipo(Express�o)[/b:3b19a781bf] s� devem ser usados para vari�veis e valores.

var
  I: Integer;
  C: Char;
begin
  I := Integer(�A�); // typecast de valor
  C := Char(I); // typecast de vari�vel
end;

Como um objeto � referenciado atrav�s de uma vari�vel, essa forma de typecast tbm funciona, mas como o [b:3b19a781bf]Massuda [/b:3b19a781bf]disse, vc tem que saber o que est� fazendo.

Para fazer casts de classes e interfaces, use sempre que poss�vel o operador [b:3b19a781bf]as[/b:3b19a781bf], pelas raz�es que o colega j� explicou.

A segunda maneira utilizada no seu exemplo - [b:3b19a781bf]TPitBull(FCachorro)[/b:3b19a781bf] - deveria gerar uma viola��o de acesso, pois - novamente o [b:3b19a781bf]Massuda [/b:3b19a781bf]observou bem - as propriedades de [b:3b19a781bf]TPitBull [/b:3b19a781bf]n�o existem em [b:3b19a781bf]TCachorro[/b:3b19a781bf].

Se rodou sem erros, foi mesmo muita coincid�ncia...

[]�s

Vitor Rubio · Answer

n�o foi coincidencia, na verdade, quem colocou o campo p�blico Manso: boolean foi o Massuda, a� desse jeito n�o funcionaria.

no meu caso funcionou porque eu declarei assim:

TPitBull = class(Tcachorro);

ou seja, a classe descendente n�o tinha nada de diferente, s� o nome. Se eu tivesse colocado novos m�todos e propriedades a� sim ia dar erro...

Dopi · Answer

Uma maneira de evitar exce��es � fazer um teste usando o [b:3db8978d39]IS[/b:3db8978d39]

if fcachorro is tpitbull then
   tpitbull(fcachorro).manso := true

dessa maneira vc poderia declarar uma v�riavel do tipo Tcachorro e instanciar qq descendente de Tchachorro nela (como por exemplo TPitBull)... Quando vc quiser acessar uma propriedade especifica de uma classe filha (que n�o existe na classe pai)... vc usa o teste com IS para verificar se o Objeto instanciado � realmente daquele tipo... se o for, vc usa o TypeCast para acessar as propriedades publicas exclusivas da classe filha.[/code]