怎样对其他单元隐藏类或禁止创建实例？

写了一个基类，只是用于其他类的继承，想把它保护起来，对外不可见或禁止创建实例，怎么写法？

解决方案 »

  1.   

    或许可以这样
    create函数抛异常,可参见网上的单例模式
      

  2.   

    抽象基类，delphi里面好像把方法都定义成抽象虚方法就行，如果你实例化该对象，编译器会有警告~
    type
        TBaseClass = class
        protected
            procedure test; virtual; abstract;
            procedure test2: virual; abstract;
    要么就用接口~
      

  3.   

    把constructor放到protected段里试试看。