親クラスに導入された仮想関数をどのようにオーバーロードしますか？

Question

私は、以下に示すサンプルコードとして、多くの子クラスでオーバーロードしています一つの重要な抽象手順で親クラスを持っている：私はその意志別saveconfigの手順で（過負荷）には、この手順を必要とする今そこに

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

end; 

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

パラメータを受け入れますが、親クラスに大きな変更を加えたくないので、他のすべての子クラスに変更を加える必要があります。

この特定の子クラスに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;