Inherited (heradar) uma fun��o de uma classe.

Question

Ol� pessoal.

Estou tentando herdar um m�todo que retorna Boolean. (Fun��o).

Mas quando herdo ele n�o consegue pegar o Inherited. D� tipo Incompat�vel.

O que pode ser?

Obrigado.

Yalle Cunha.

Beppe · Answer

Como fez as declara��es?...

Yallebr · Answer

Classe pai.   [quote:07247bda7d]  function Salva: Boolean; virtual; [/quote:07247bda7d]Classe Filho[quote:07247bda7d]   function Salva: Boolean; override;[/quote:07247bda7d]  O problema j� come�a o seguinte. Ele n�o coloca o Inherited autom�tico. Caso n�o seja poss�vel, eu posso achamar o m�todo SALVA do pai no filho mas ai se eu colocar Salvar ele acha que � do filho e fica no Loop eterno. Ex. TFilho. function Salva: Boolean; begin  Result := Salvar; //Loop eterno.end;...

Massuda · Answer

Voc� tem que dizer explicitamente que quer chamar a fun��o da classe pai:[code:1:66958a820c]TFilho. function Salva: Boolean; begin  Result := inherited Salvar;end;[/code:1:66958a820c]...

Yallebr · Answer

Ol� Massuda,

Isso funcionou. Obrigado.

Porque eu precisei passar explicitamente que queria puxar do pai?

Caso fosse uma procedure eu poderia colar apenas

Inherited. Pois na declara��o eu coloquei override;
No caso da fun��o que adoto essa forma? Por que?

Muito obrigado.

Yalle Cunha.

Beppe · Answer

[b:b93d51af70]override [/b:b93d51af70]apenas �diz� que a classe ter� uma nova implementa��o para certo m�todo. [b:b93d51af70]inherited [/b:b93d51af70]serve pra chamar um m�todo do pai, isto pq sem ele ser� assumida uma chamada ao filho, como pode ser o caso em uma fun��o recursiva ou uma chamada de outro m�tdo da pr�pria classe.

Yallebr · Answer

Ol� Beppe

Obrigado pela ajuda.

Minha d�vida n�o seria bem essa, seria o seguinte.

Normalmente eu utilizo assim.

TFilho. function Salva: Boolean; 
begin 
  AlgumCodigo;
  inherited; //Isso chama o m�todo Salva do pai. 
end;

Nesse caso tive que fazer isso de forma Explicida.

TFilho. function Salva: Boolean; 
begin 
  Result := inherited Salvar; //inherited mais o nome do metodo. 
end;

Ficou claro ?

Yalle

Beppe · Answer

Ah, sim. O [b:8dea0aff55]inherited[/b:8dea0aff55] sozinho chama um m�todo numa classe pai de mesmo nome que o m�todo corrente. A n�o ser que vc teve um [i:8dea0aff55]mispelling[/i:8dea0aff55], vc tem os m�todos Salvar e Salva.

Ent�o, no m�todo Salva, estes dois comandos s�o diferentes:

[b:8dea0aff55]inherited[/b:8dea0aff55] [i:8dea0aff55][/i:8dea0aff55];
[b:8dea0aff55]inherited[/b:8dea0aff55] Salvar;

Yallebr · Answer

OK ! Vou verificar. Obrigado. :D...

Massuda · Answer

[quote:32bf40044d=�Yalle�]Nesse caso tive que fazer isso de forma Explicida.[/quote:32bf40044d]Desculpe...  :oops: talvez meu �explicitamente� tenha sido forte demais.Eu acostumei (por motivos n�o relacionados ao Delphi) escrever sempre inherited + nome do m�todo quando quero usar o m�todo da classe pai em uma classe filho.Normalmente, quando voc� escreve apenas inherited, como em...[code:1:32bf40044d]TFilho. function Salva: Boolean; begin   AlgumCodigo;  Result := inherited;end; [/code:1:32bf40044d]...o fato de voc� estar querendo chamar o m�todo do classe pai est� impl�cito para o compilador.Em algumas situa��es � preciso usar inherited + nome do m�todo... Por exemplo, pode ser que o m�todo em quest�o precise receber par�metros e voc� quer passar par�metros para o m�todo da classe pai que s�o diferentes dos parametros que o m�todo da classe filho recebeu. Assim, isso � perfeitamente v�lido:[code:1:32bf40044d]TFilho. function Salva(A: TXyz): Boolean;var  B: TXyz;begin   AlgumCodigo;  // Result := inherited; -> isso chama Salva(A) do pai.   Result := inherited Salva(B);end; [/code:1:32bf40044d][quote:32bf40044d=�Beppe�] A n�o ser que vc teve um mispelling, vc tem os m�todos Salvar e Salva.[/quote:32bf40044d]Como fiz apenas um copy&paste no c�digo do Yalle, nem tinha percebido que estava escrito Salvar ao inv�s de Salva....

F�rum Inherited (heradar) uma fun��o de uma classe. #271668