デルファイ：メソッド「作成」をベースの仮想メソッドを隠し - それは

Question

が始まる、仮想的なオブジェクト階層を考えてみましょうすぐそこです：

TFruit = class(TObject) 
public 
    constructor Create(Color: TColor); virtual; 
end; 

とその子孫：

は

TApple = class(TFruit) 
public 
    constructor Create(); overload; virtual; 
    constructor Create(Color: TColor); overload; override; //deprecated. Calls other constructor - maintaining the virtual constructor chain 
end; 

考えはここにあります私はをオーバーライドしました仮想クラスのコンストラクタ、オーバーロードも仮想であることがあります。

Delphiは文句：

メソッド '作成' 基本型の仮想メソッドを隠し 'TFruit'

それはそれを隠していない場合を除き - それはすぐそこです！

• 私オーバーライド仮想祖先のメソッド、および
• 私は過負荷にそれは別のバージョン

との契約は何ですか？

Answer 1

2種類の溶液：

type 
    TFruit = class(TObject) 
    public 
    constructor Create(Color: TColor); virtual; 
    end; 

    TApple = class(TFruit) 
    public 
    constructor Create(); reintroduce; overload; 
    constructor Create(Color: TColor); overload; override; 
    end; 

かは：

type 
    TFruit = class(TObject) 
    public 
    constructor Create; overload; virtual; abstract; 
    constructor Create(Color: TColor); overload; virtual; 
    end; 

    TApple = class(TFruit) 
    public 
    constructor Create(); override; 
    constructor Create(Color: TColor); override; 
    end; 

Answer 2

これが問題の "最初に来た" の並べ替えのように見えます。 （NGLNが解決策を見つけたようです。）

もう一つの解決法もあります。

interface 

type 
    TFruit=class(TObject) 
    public 
    constructor Create(Color: TColor); virtual; 
    end; 

    TApple=class(TFruit) 
    public 
    constructor Create(Color: TColor = clRed); override; 
    end; 

implementation 

{ TFruit } 

constructor TFruit.Create(Color: TColor); 
begin 
    inherited Create; 
end; 

{ TApple } 

constructor TApple.Create(Color: TColor); 
begin 
    inherited; 
end; 

// Test code 
var 
    AppleOne, AppleTwo: TApple; 
begin 
    AppleOne := TApple.Create; 
    AppleTwo := TApple.Create(clGreen); 
end;