Come nascondere il costruttore TObject ereditato mentre la classe ne ha sovraccaricati?

Question

Date un'occhiata a questa classe:

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

Ora, quando si vuole utilizzare la classe:

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

Qualcuno mi può aiutare con questo costruttore nasconde?

Answer 1

finché si è sovraccaricato costruttori di nome Create, non si può nascondere il senza parametri TObject costruttore quando derivante da TObject.

Questo è discusso qui: http://www.yanniel.info/2011/08/hide-tobject-create-constructor-delphi.html

Se siete disposti a mettere un altro di classe tra la classe e TObject è possibile utilizzare 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

È possibile nascondere la Creazione ereditata introducendo solo una Creazione non sovraccaricata. Come avete bisogno di due sovraccarico Creare, è possibile unire in un unico coloro Creare un secondo parametro opzionale:

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

Questo darà un avviso del compilatore, segnalando che stai nascondendo il costruttore di default senza parametri. Per sbarazzarsi di avvertimento è possibile dichiarare il costruttore nascondiglio in questo modo:

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

o, se ciò non è fattibile, è possibile introdurre una classe intermedia che introduce la prima creare e poi la classe finale con il secondo sovraccaricato :

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

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