クラスがオーバーロードされている間に、継承されたTObjectコンストラクタを非表示にする方法はありますか？私たちは、クラスを使用したいとき今</p> <pre><code>TTest = class(TObject) public constructor Create(A:Integer);overload; constructor Create(A,B:Integer);overload; end; </code></pre> <p>：

Question

は、このクラスを見てみましょう

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

を誰もがこのコンストラクタを隠すことで私を助けることができますか？

Answer 1

限り、あなたがCreateという名前のコンストラクタをオーバーロードしているとして、あなたはパラメータなしTObjectコンストラクタを隠すことはできません。

この

は、ここで議論されている：あなたはあなたのクラスとの間で別のクラスを置くために準備されている場合 http://www.yanniel.info/2011/08/hide-tobject-create-constructor-delphi.html

TObjectあなたが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

オーバーロードされていないCreateを導入するだけで、継承されたCreateを非表示にすることができます。あなたは、2つの作成過負荷に必要として、あなたは、オプションの二番目のパラメータで作成し1にそれらをマージすることができ、次のいずれか

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

これは、デフォルトのパラメータなしのコンストラクタを隠していることを知らせる、コンパイラの警告を与えます。

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

か、これが不可能な場合は、あなたが最初のオーバーロードされた二番目で、最終的なクラスを作成し、導入の中間クラスを導入することができます：あなたがそうのような隠れコンストラクタを宣言することができ、警告を取り除くために、 ：TObjectから派生するとき

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

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