delphi - 如果显式调用 Create，我可以使编译器失败吗？

Question

我有很多单例，我不希望开发人员调用构造函数 创建 .相反，他们应该使用函数 实例

TdgpBankBranch = class(TDataGroup)
strict private
  class var InstanceVar : TdgpBankBranch;
private
  { Only for internal use }
  constructor Create (AOwner : TComponent); reintroduce;
protected
public
  class function Instance : TdgpBankBranch;
  class function Is_A_Live_Singleton: boolean;
  property Rec[Bank, Branch : integer]: TBankBranch read GetRec; default;
end;

我一直在将构造函数转移到 私有(private) .这使得代码分析器提示 《非公构造函数》 .

我可以将它们移回 公众 .如果尝试使用 ，有没有办法使编译器失败？构造函数 ?

Answer 1

将构造函数移至 private会阻止其他单位调用Create()直接，但是由于单元内隐含的友谊，与类在同一单元内的代码仍然可以不受阻碍地调用它。如果你不想调用类之外的任何代码 Create()直接，即使在同一单元中，然后将其声明为strict private所以只有类本身可以直接调用它。