Jak ukryć dziedziczony konstruktor TObject, gdy klasa ma przeciążone?

Question

Spójrz w tej klasie:

TTest = class(TObject) 
public 
    constructor Create(A:Integer);overload; 
    constructor Create(A,B:Integer);overload; 
end; 

Teraz, gdy chcemy użyć klasy:

var 
    test: TTest; 
begin 
    test:= TTest.Create; //this constructor is still visible and usable! 
end; 

Czy ktoś może mi pomóc z ukrycia tego konstruktora?

Answer 1

tak długo, jak masz przeładowany konstruktorów nazwanych Create, nie można ukryć bez parametrów TObject konstruktora podczas wyprowadzania z TObject.

to omówione poniżej: http://www.yanniel.info/2011/08/hide-tobject-create-constructor-delphi.html

Jeśli jesteś przygotowany do wprowadzenia innej klasy między klasą i TObject można użyć Andy Hausladen's trick:

TNoParameterlessContructorObject = class(TObject) 
strict private 
    constructor Create; 
end; 

TTest = class(TNoParameterlessContructorObject) 
public 
    constructor Create(A:Integer);overload; 
    constructor Create(A,B:Integer);overload; 
end; 

Answer 2

Możesz ukryć dziedziczone tworzenie, wprowadzając nieprzeciążone Utwórz. Jak trzeba dwa przeciążone Tworzenie, można połączyć w jedno Tworzenie tych z opcjonalnym drugim parametrem:

TTest = class(TObject) 
public 
    constructor Create(A:Integer; B: Integer = 0); 
end; 

To daje ostrzeżenie kompilatora, sygnalizując, że jesteś ukrywanie domyślnego konstruktora bez parametrów. Aby pozbyć się ostrzeżenia można zadeklarować konstruktor ukrycia tak:

TTest = class(TObject) 
public 
    constructor Create(A:Integer; B: Integer = 0); reintroduce; 
end; 

lub, jeżeli nie jest to możliwe, można wprowadzić klasę pośrednią wprowadzenie utworzyć pierwszą, a następnie ostateczną klasę z przeładowanym drugim :

preTest = class(TObject) 
public 
    constructor Create(A:Integer); reintroduce; 
end; 

TTest = class(preTest) 
public 
    constructor Create(A,B:Integer);overload; 
end;