मैं अभिभावक वर्ग में पेश किए गए वर्चुअल फ़ंक्शन को कैसे अधिभारित करूं?

Question

मैं के रूप में उदाहरण के कूट नीचे एक महत्वपूर्ण सार प्रक्रिया है जिससे मैं कई बच्चे कक्षाओं में अधिक भार हूँ के साथ एक माता पिता के वर्ग है: अब वहाँ मैं जरूरत

TCParent = Class 
private 
public 
procedure SaveConfig; virtual; abstract; 

end; 

TCChild = Class(TCParent) 
private 
public 
procedure SaveConfig; override; 
end; 

(अधिभार) एक और SaveConfig प्रक्रिया है कि होगा के साथ इस प्रक्रिया को पैरामीटर स्वीकार करें, फिर भी मैं अभिभावक वर्ग में बड़े बदलाव नहीं करना चाहता हूं जिसके लिए मुझे आवश्यकता हो सकती है और मैं अन्य सभी बच्चों के वर्गों में बदलाव कर सकता हूं।

क्या कोई तरीका है कि मैं इस विशिष्ट बाल वर्ग में SaveConfig को अधिभारित कर सकता हूं, बिना पैरेंट क्लास और अन्य बच्चे वर्गों में बड़े बदलाव किए बिना?

Answer 1

आप एक नई ओवरलोडेड विधि जोड़ने के लिए reintroduce का उपयोग कर सकते हैं। ध्यान दें कि बाल वर्ग में reintroduce; overload; का आदेश आवश्यक है; यदि आप उन्हें उलट देते हैं, तो कोड संकलित नहीं होगा।

TCParent = Class 
private 
public 
procedure SaveConfig; virtual; abstract; 
end; 

TCChild = Class(TCParent) 
private 
public 
procedure SaveConfig; overload; override; 
procedure SaveConfig(const FileName: string); reintroduce; overload; 
end; 

(डेल्फी 7 में परीक्षण किया गया, तो यह और बाद में सभी संस्करणों में काम करना चाहिए।)

Answer 2

जब से तुम अन्य वंश में परिवर्तन करने के लिए नहीं करना चाहते, मैं माता-पिता के लिए एक वैकल्पिक फ़ील्ड जोड़ने का सुझाव पैरामीटर को पकड़ने के लिए कक्षा, फिर किसी भी वंशज जो पैरामीटर का उपयोग करना चाहता है, उनका उपयोग कर सकते हैं। इस तरह, आपको ओवरराइड SaveConfig() के हस्ताक्षर को बदलने की ज़रूरत नहीं है। उदाहरण के लिए:

type 
    TCParent = class 
    protected 
    SaveConfigParams: TStrings; // or whatever... 
    public 
    procedure SaveConfig; overload; virtual; abstract; 
    procedure SaveConfig(Params: TStrings); overload; 
    end; 

procedure TCParent.SaveConfig(Params: TStrings); 
begin 
    SaveConfigParams := Params; 
    try 
    SaveConfig; 
    finally 
    SaveConfigParams := nil; 
    end; 
end; 

।

type 
    TCChild = class(TCParent) 
    public 
    procedure SaveConfig; override; 
    end; 

procedure TCChild.SaveConfig; 
begin 
    if SaveConfigParams <> nil then 
    begin 
    // do something that uses the parameters... 
    end else begin 
    // do something else... 
    end; 
end; 

।

type 
    TCChild2 = class(TCParent) 
    public 
    procedure SaveConfig; override; 
    end; 

procedure TCChild2.SaveConfig; 
begin 
    // do something, ignoring the SaveConfigParams... 
end;