德爾福：方法「創建」隱藏基地的虛方法 - 但它是正確的有

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; 

的想法在這裏我已經覆蓋的虛擬基類的構造函數，與過載也碰巧是虛擬的。

德爾福抱怨：

方法「創建」隱藏了基類型的虛擬方法TFruit「

除了它並不能掩蓋它 - 它就在那裏！

• 我壓倒在祖先的虛方法，並
• 我超載它與其他版本

這是怎麼回事？

Answer 1

兩個解決方案：

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;