Questão de Tecnologia da Informação

Considere um cenário em que é necessário sobrescrever o método “ validar ” da classe “ TPessoa ” a partir da classe “ TCliente ”, a qual herda a classe “ TPessoa ”, e que essas classes foram implementadas na linguagem Delphi. O que acontecerá ao se compilar um programa que utiliza as classes “ TCliente ” e “ TPessoa ”, conforme o código descrito a seguir?

unit Unit3;

interface

type

TPessoa = class
public
procedure Validar(Id :Integer);
end;

TCliente = class(TPessoa)
public
procedure Validar(Id :Integer); override;
end;

implementation
{ TCliente }

procedure TCliente.Validar(Id: Integer);
begin
inherited;
{alterações necessárias implementadas aqui}
end;

{ TPessoa }

procedure TPessoa.Validar(Id: Integer);
begin
{validação na classe pessoa}
end;

end.