डेल्फी: पद्धति 'बनाएं' खाल आधार की आभासी विधि - लेकिन यह सही नहीं है

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'

छोड़कर यह इसे छिपाने नहीं करता है - यह सही नहीं है!

• मैं overrode पूर्वज में आभासी विधि, और
• मैं एक और संस्करण

सौदा क्या है के साथ अतिभारित यह?

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

यह एक "जो पहले आया था" मुद्दा की तरह प्रतीत होता है। (ऐसा लगता है कि एनजीएलएन को एक समाधान मिला।)

एक और समाधान भी है। आप एक डिफ़ॉल्ट पैरामीटर का उपयोग कर सकते हैं:

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;