Classes e objetos Delphi (7) - herança

Herança é o processo de criação de uma nova classe com base em uma classe existente.A nova classe pode herdar os membros visíveis da classe pai e adicionar mais membros conforme necessário.

A classe pai é a mais abstrata e a mais comum.A função da classe filho é aperfeiçoar e expandir a classe pai.

A subclasse pode aumentar a visibilidade dos membros herdados da classe pai.Se a visibilidade do membro A na classe pai estiver protegida, você poderá modificar A para público na subclasse, apenas precisará redeclarar na área de membro público da subclasse A é suficiente.

As subclasses não podem reduzir a visibilidade dos membros da classe pai. Publicado na classe pai só pode ser publicado na classe filho.

A definição do método na classe deve ser posterior à definição da variável.

unidade Unit1; 

a interface 

usa 
  Windows, Mensagens, SysUtils, Variantes, Classes, Gráficos, Controles, Formulários, 
  Diálogos, StdCtrls; 

tipo 
  TForm1 = classe (TForm) 
    Button1: TButton; 
    Button2: TButton; 
    procedimento Button1Click (Sender: TObject);
    procedimento Button2Click (Sender: TObject);
  fim ; 

  // , TChild 于 TB 
  TBass TBass = procedimento de classe 
    msg1;
  fim ; 
  TChild = classe (TBass)
     procedimento msg2;
  fim ;



var 
  o Form1: TForm1; 

Implementação 

{ . $ R & lt * Dfm } 

{ TBass } 
Procedimento TBass.msg1;
 a começar 
  a ShowMessage ( ' É de Bass ' );
 End ; 

{ TChild } 
Procedimento TChild.msg2;
 a começar 
  a ShowMessage ( ' é uma criança ' );
 End ; 



// Teste 1: a classe pai possui apenas um método msg1 
procedure TForm1.Button1Click (Sender: TObject);
 var 
  b: TBass; 
begin 
  b: = TBass. Create ;
  b.msg1;{ is Bass } 
  b.Free; 
end ; 

// Teste 2: a subclasse possui dois métodos, um msg2 em si e um 
procedimento msg1 TForm1.Button2Click (Sender: TObject);
 var 
  c: TChild; 
begin 
  c: = TChild: Create ; 
  c.msg1; { is Bass } 
  c.msg2; { is Child } 
  c.Free; 
end ; 

end .