Considere um cenário em que é necessário sobrescrever o méto...

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.