Delphi：了解构造函数

我想了解

>虚拟
>覆盖
>过载
>重新引入

当应用于对象构造函数。每次我随机添加关键字，直到编译器关闭 – 和(经过12年的Delphi开发)我宁愿知道我在做什么，而不是随机尝试。

给定假设的对象集合：

TComputer = class(TObject)
public
    constructor Create(Cup: Integer); virtual;
end;

TCellPhone = class(TComputer)
public
    constructor Create(Cup: Integer; Teapot: string); virtual;
end;

TiPhone = class(TCellPhone)
public
    constructor Create(Cup: Integer); override;
    constructor Create(Cup: Integer; Teapot: string); override;
end;

我希望他们的行为方式很可能从声明，但是：

> TComputer有简单的构造函数，后代可以覆盖它
> TCellPhone有一个替代构造函数，后代可以覆盖它
> TiPhone覆盖两个构造函数，调用每个构造函数的继承版本

现在代码不编译。我想明白为什么它不工作。我也想要理解覆盖构造函数的正确方法。或者你可以永远不重写构造函数？或者也许是完全可以接受的重写构造函数？也许你不应该有多个构造函数，也许它是完全可以接受的多个构造函数。

我想了解为什么。修复它将是显而易见的。

也可以看看

> Delphi: How to hide ancestor constructors?
> Reintroducing functions in Delphi
> Delphi: How to add a different constructor to a descendant?

编辑：我也希望得到一些推理的虚拟，覆盖，重载，重新引入的顺序。因为尝试所有关键字组合时，组合数量会爆炸：

> virtual;超载;
> virtual;覆盖;
> override;超载;
> override;虚拟;
> virtual;覆盖;超载;
> virtual;超载;覆盖;
>过载;虚拟;覆盖;
> override;虚拟;超载;
> override;超载;虚拟;
>过载;覆盖;虚拟;
>等

编辑2：我想我们应该开始“是对象层次给定甚至可能？如果不是，为什么不呢？例如，它从根本上不正确有一个祖先的构造函数？

TComputer = class(TObject)
public
    constructor Create(Cup: Integer); virtual;
end;

TCellPhone = class(TComputer)
public
    constructor Create(Cup: Integer; Teapot: string); virtual;
end;

我期望TCellPhone现在有两个构造函数。但我不能在Delphi中找到关键字的组合，使它认为这是一个有效的事情。我从根本上错了想我可以有两个构造函数在这里在TCellPhone？

Note: Everything below this line is not strictly needed to answer the
question – but it does help to explain
my thinking. Perhaps you can see,
based on my thought processes,what
fundamental piece i’m missing that
makes everything clear.

现在这些声明不编译：

//Method Create hides virtual method of base type TComputer:
TCellPhone = class(TComputer)
   constructor Create(Cup: Integer; Teapot: string);  virtual;

//Method Create hides virtual method of base type TCellPhone:
TiPhone = class(TCellPhone)
public
   constructor Create(Cup: Integer); override;
   constructor Create(Cup: Integer; Teapot: string); overload;  <--------
end;

所以首先，我会尝试修复TCellPhone。我将开始随机添加overload关键字(我知道我不想重新引入，因为这将隐藏其他构造函数，我不想要)：

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer; Teapot: string); virtual; overload;
end;

但是失败：方法或属性后不允许字段定义。

我知道从经验，即使我没有一个方法或属性后的字段，如果我颠倒的虚拟和重载关键字的顺序：Delphi将关闭：

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer; Teapot: string); overload; virtual; 
end;

但我仍然得到的错误：

Method ‘Create’ hides virtual method of base type ‘TComputer’

所以我尝试删除这两个关键字：

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer; Teapot: string);
end;

但我仍然得到的错误：

Method ‘Create’ hides virtual method of base type ‘TComputer’

所以我辞职，现在试着重新介绍：

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer; Teapot: string); reintroduce;
end;

现在TCellPhone编译，但它已经使事情更糟的TiPhone：

TiPhone = class(TCellPhone)
public
   constructor Create(Cup: Integer); override; <-----cannot override a static method
   constructor Create(Cup: Integer; Teapot: string); override; <-----cannot override a static method
end;

两个都抱怨我不能覆盖它们，所以我删除override关键字：

TiPhone = class(TCellPhone)
public
   constructor Create(Cup: Integer);
   constructor Create(Cup: Integer; Teapot: string);
end;

但现在第二个创建说，它必须标记为重载，我做的(事实上，我会标记为超载，因为我知道如果我不会发生什么)：

TiPhone = class(TCellPhone)
public
   constructor Create(Cup: Integer); overload;
   constructor Create(Cup: Integer; Teapot: string); overload;
end;

所有的一切都在接口部分。不幸的是我的实现不会工作。我的单参数构造函数TiPhone不能调用继承的构造函数：

constructor TiPhone.Create(Cup: Integer);
begin
    inherited Create(Cup); <---- Not enough actual parameters
end;

TCellPhone = class(TComputer)
public
  constructor Create(Cup: Integer; Teapot: string); reintroduce; virtual;
end;

TComputer = class(TObject)
public
  constructor Create(Cup: Integer);
    overload; // Allow descendants to add more constructors named Create.
    virtual;  // Allow descendants to re-implement this constructor.
end;


TCellPhone = class(TComputer)
public
  constructor Create(Cup: Integer; Teapot: string);
    overload; // Add another method named Create.
    virtual;  // Allow descendants to re-implement this constructor.
end;


TiPhone = class(TCellPhone)
public
  constructor Create(Cup: Integer);
    override; // Re-implement the ancestor's Create(Integer).
  constructor Create(Cup: Integer; Teapot: string);
    override; // Re-implement the ancestor's Create(Integer,string).
end;