Jak mogę przeciążać funkcję wirtualną wprowadzoną w klasie nadrzędnej?

Question

Mam klasy nadrzędnej z jednym ważnym streszczenie procedury, która mam przeciążenia w wielu klasach potomnych jako przykładowy kod poniżej:

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

end; 

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

Teraz nie muszę (przeciążenie) tę procedurę z inną procedurą SaveConfig które będą akceptuj parametry, ale nie chcę wprowadzać dużych zmian w klasie nadrzędnej, które mogą wymagać przejścia i wprowadzania zmian we wszystkich innych klasach potomnych.

Czy istnieje sposób mogę przeciążać SaveConfig w tej konkretnej klasy dziecka bez większych zmian do klasy dominującej i innych klas podrzędnych, które dziedziczą z niego?

Answer 1

Można użyć reintroduce aby dodać nową metodę przeciążony. Zauważ, że wymagana jest kolejność reintroduce; overload; w klasie potomnej; jeśli je odwrócisz, kod się nie skompiluje.

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; 

(Testowany w Delphi 7, więc powinien działać w nim i wszystkich nowszych wersjach).

Answer 2

Ponieważ nie chcą wprowadzać zmiany w innych zstępnych, chciałbym zaproponować dodanie opcjonalnego pole do rodzica klasa do przechowywania parametrów, wtedy każdy potomek, który chce użyć parametrów, może z nich korzystać. W ten sposób nie trzeba zmieniać podpisu nadpisanego SaveConfig(). Na przykład:

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;