Acessar Propriedades de classe diferentes (Orienta��o a obj)

Question

Se eu tenho 2 classes TClasse1 e TClasse2, ambas herdadas de TComponent. Na classe 1 tenho v�rias propriedades e fun��es criadas totalmente diferentes das criadas na TClasse2. Apenas 1 propriedade  ch...

Nildo · Answer

S� vai funcionar se esse ValorDolar estiver na mesma posi��o nas duas classes, por exemplo:

TClasse1 = class( tcomponent )
public
   Teste: string;
   QualquerCoisa: Integer;
   ValorDolar: Integer;
end;

TClasse2 = class( tcomponent )
public
   VarQualquer: string;
   Outra: Integer;
   ValorDolar: Integer;
end;

Desta maneira funciona pois o compilador do Delphi ja prepara o c�digo para quando voc� usar [b:fa6cf6e975]TClasse( Variavel_Classe2 ).ValorDolar[/b:fa6cf6e975], ele sabe que tem que atribuir o valor na posi��o absoluta do ValorDolar dentro da classe.

Agora, se a posi��o do ValorDolar n�o estiver no mesmo local nas duas classes, voc� n�o pode usar o m�todo que voc� citou. Exemplo:

TClasse1 = class( tcomponent )
public
   QualquerCoisa: Integer;
   ValorDolar: Integer;
end;

TClasse2 = class( tcomponent )
public
   VarQualquer: string;  // <-- repare que tem essa variavel a mais
   Outra: Integer;
   ValorDolar: Integer;
end;

Quando voc� utilizar [b:fa6cf6e975]TClasse( Variavel_Classe2 ).ValorDolar[/b:fa6cf6e975], voc� vai estar atribuindo na variavel [b:fa6cf6e975]Outra[/b:fa6cf6e975] da Variavel_Classe2, pois o [b:fa6cf6e975]ValorDolar[/b:fa6cf6e975] da TClasse1 � a segunda variavel (em posi��o absoluta seria +/- o quarto byte), que na TClasse2, essa posi��o � a variavel [b:fa6cf6e975]Outra[/b:fa6cf6e975]

Entendeu?

Massuda · Answer

Eu n�o conhe�o o dom�nio do seu problema, mas uma alternativa � ter uma classe base com o valor do d�lar (pegando o exemplo do Nildo)...

TClasseBase = class(TComponent)
public 
   ValorDolar: Integer; 
end; 

TClasse1 = class(TClasseBase) 
public 
   Teste: string; 
   QualquerCoisa: Integer; 
end; 

TClasse2 = class(TClasseBase) 
public 
   VarQualquer: string; 
   Outra: Integer; 
end;

Da�, independente de um objeto ser TClasse1 ou TClasse2, isto � sempre v�lido:

TClasseBase(Objeto).ValorDolar := ...;

Nildo · Answer

[quote:70987f7fee=�Massuda�]Da�, independente de um objeto ser TClasse1 ou TClasse2, isto � sempre v�lido:[code:1:70987f7fee]TClasseBase(Objeto).ValorDolar := ...;[/code:1:70987f7fee][/quote:70987f7fee]Perfeito!S� complementando: Desta maneira, a posi��o absoluta de ValorDolar ser� sempre o mesmo para todas as classes que descendem dela. Por isso vai funcionar...

F�rum Acessar Propriedades de classe diferentes (Orienta��o a obj) #277878