如何能防止一个类的构造函数被外界直接访问？

[Hyphoon]

在单件（Singleton）模式中，要求构造器是被保护的， 那在Delphi如何实现？就算把子类的构造器保护起来，构造器都可以直接访问， 只不过访问的是父类中没保护起来的构造器？

[wjlsmail]

自己写类，将构造放在 私有区

[Hyphoon]

To wjlsmail(计算机质子) ：

好像不行喔， 虽然能防止访问私有曲内的构造器，但依然能直接直接访问父类中非私有的构造器！

Unit2中定义一个类

TA = class(TObject)
private
FStr : string;
constructor Creat; overload;
...

在Unit1中依然能这样调用：
la := TA.Create;

[wjlsmail]

type
TThreadOfPick = class(TThread)
private
{ Private declarations }
TheUser: String;
ThePwd: String;

protected
procedure Execute; override;
public
constructor Create(UStr, PStr : String); // 重写一下
end;


with TThreadOfPick.Create(NameStr,PwdStr) do
//这时可以 Create ；

begin
if Suspended then Resume;
end;


------------------------------------------------

type
TThreadOfPick = class(TThread)
private
{ Private declarations }
TheUser: String;
ThePwd: String;
constructor Create(UStr, PStr : String);

protected
procedure Execute; override;
end;


with TThreadOfPick.Create(NameStr,PwdStr) do
// 这时只能继承 TThread.Create ；重写一下构造，放在Private中 // 应该可以达到需要的效果
begin
if Suspended then Resume;
end;

[Hyphoon]

To wjlsmail(计算机质子) ：

你这种写法是可以防止调用子类定义的constructor Create(UStr, PStr : String); 但无法防止访问TThread及其父类中非私有的构造器， 例如TObjecy中的constructor Create，虽然返回并非该子类的实例，但也存在危险的可能， 我的意思是能否有办法防止所有的构造器被访问（包括所有的父类的）。

[wjlsmail]

重写一些构造应该能达到目的，但如你所说的"防止所有的构造器被访问（包括所有的父类的）。" 未必能实现


Study

[largewang]

看这里：http://www.csdn.net/develop/read_article.asp?id=15077

[szjay]

构造函数是类方法，它不依赖对象的存在而存在。
除非是你自己overload的构造函数，否则应该都是可以访问的。

[Hyphoon]

谢谢 largewang(老王)， 同时感谢各位。

[wuwoczj]

外界无法访问构造函数，怎么创建？
什么意思？
要达到什么目的呢？
不明白

[墨梅无痕]

要求构造器被保护，外界不能访问！
要创建类的实例，外界必须使用构造器！
————悖论乎？

[Eastunfail]

不太明白搂主的意思。

[idilent]

这个类能够实例化吗？还不如用接口。

[Hyphoon]

终于在《Delphi技术手册》中找到了问题的答案， 在Delphi Pascal中的确没有办法把所有（包括父类）的构造器屏蔽掉， 只能变相在构造器中产生一个异常来达到相同的目的。代码的大体结构如下：

TCanNotCreat ＝ class
private
constructor Create(AOwner : TObject); overload;
public
constructor Create; reintroduce; overload;
//覆盖掉TObject中的Create， 产生一个异常来让使用者“明白”原因
end;


constructor TA.Create;
begin
raise Exception.Create('Can not Create it direct.');
end;