深入类中的方法（7）- 关于 inherited

// inherited 就是调用父类方法的一个特殊命令; 举例:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

  {建立父类, 类中包括一个函数 Fun 和一个等待覆盖的虚方法 Proc}
  TBass = class
    procedure Proc; virtual;
    function Fun(x,y: Integer): string;
  end;

  {建立四个子类, 分别覆盖父类的虚方法}
  TChild1 = class(TBass)
    procedure Proc; override;
  end;

  TChild2 = class(TBass)
    procedure Proc; override;
  end;

  TChild3 = class(TBass)
    procedure Proc; override;
  end;

  TChild4 = class(TBass)
    procedure Proc; override;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TBass }
function TBass.Fun(x, y: Integer): string;
begin
  Result := IntToStr(x + y); {父类函数是返回两个数的和}
end;

procedure TBass.Proc;
begin
  ShowMessage('TBass');      {父类的虚方法会弹出信息: TBass}
end;

{ TChild1 }
procedure TChild1.Proc;
begin
  inherited Proc;            {调用父类的 Proc 方法}
end;

{ TChild2 }
procedure TChild2.Proc;
begin
  inherited;                 {调用父类的同名方法可以省略方法名}
  ShowMessage('TChild2');    {然后弹出自己的信息框}
end;

{ TChild3 }
procedure TChild3.Proc;
begin
  ShowMessage('TChild3');    {先弹出自己的信息框}
  inherited;                 {再调用父类的同名方法}
end;

{ TChild4 }
procedure TChild4.Proc;
begin
  ShowMessage(inherited Fun(11,22)); {调用父类的那个求和的函数}
end;


{测试}
procedure TForm1.Button1Click(Sender: TObject);
var
  c1: TChild1;
  c2: TChild2;
  c3: TChild3;
  c4: TChild4;
begin
  c1 := TChild1.Create;
  c2 := TChild2.Create;
  c3 := TChild3.Create;
  c4 := TChild4.Create;

  c1.Proc; {显  示: TBass}
  c2.Proc; {先显示: TBass;   再显示: TChild2}
  c3.Proc; {先显示: TChild3; 再显示: TBass}
  c4.Proc; {显  示: 33; 11+22=33吗}

  c1.Free;
  c2.Free;
  c3.Free;
  c4.Free;
end;

end.