如何重載父類中引入的虛函數？

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; 

（測試在Delphi 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;