inherited 的研究。

结论：

1. inherited默认调用的是父类的同名 同参数方法。（常用，如果是同名 同参数方法 比如 overide 的，可以省略，只写个inherited就可。）

2. 子类的方法里可以 inherited+ 父类的其它非同名 同参数方法。见：下方 son3

若父类不存在 同名 同参数方法 则编译报错。如下图：

unit Unit6;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Samples.Gauges;

type

  TForm6 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  TFather = class

    public

      constructor Create; overload;

      constructor Create(const str: string); overload;

  end;

  TSon = class(TFather)

    public

      constructor Create; overload;

      constructor Create(const str: string); overload;

      constructor Create(const str1, str2: string); overload;

  end;

var

  Form6: TForm6;

implementation

{$R *.dfm}

{ TFather }

constructor TFather.Create;

begin

  OutputDebugString('father');

end;

constructor TFather.Create(const str: string);

begin

  OutputDebugString(PChar(str));

end;

{ TSon }

constructor TSon.Create;

begin

  inherited;

end;

constructor TSon.Create(const str: string);

begin

  inherited;

end;

constructor TSon.Create(const str1, str2: string);

begin

  //inherited; //父类没有两个参数的函数的时候会怎样？

  inherited Create(str1 + str2); //这里用了 非同名 同参数方法

end;

procedure TForm6.Button1Click(Sender: TObject);

var

  son1, son2, son3: TSon;

begin

  son1 := TSon.Create;

  son2 := TSon.Create('test');

  son3 := TSon.Create('abc', 'cde');

  son1.Free;

  son2.Free;

  son3.Free;

end;

end.