相关疑难解决方法(0)

看看这堂课:

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

现在,当我们想要使用该类时:

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

任何人都可以帮我隐藏这个构造函数吗？

更新:用一个更简单的例子来解决问题,原来接受的答案没有回答

鉴于以下类及其祖先:

TComputer = class(TObject)
public
   constructor Create(Teapot: string='');
end;

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer); overload; virtual;
   constructor Create(Cup: Integer; Teapot: string); overload; virtual;
end;

现在TCellPhone有3个构造函数可见:

• 杯子:整数
• 杯子:整数; 茶壶:串
• 茶壶:string =''

我该怎么做才能TCellPhone使祖先构造函数(Teapot: string = '')不可见,只留下声明的构造函数:

• 杯子:整数
• 杯子:整数; 茶壶:串

注:通常简单的行为有一个后代的构造函数隐藏了祖先:

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer); virtual;
end;

Run Code Online (Sandbox Code Playgroud)

• 杯子:整数

如果你想保留祖先构造函数和后代,你可以将后代标记为overload:

TCellPhone = class(TComputer)
public
   constructor Create(Cup: Integer); overload; virtual;
end;

Run Code Online (Sandbox Code Playgroud)

• 杯子:整数
• 茶壶:string =''

在这个问题的示例代码中,Delphi误解了我的 …