delphi - SomeValue 所需的默认值

Question

当我创建以下 constructor 时，我收到错误信息 Default value required for 'DefaultPort'

type
  MyIdServer = class
  public
    constructor Create(const AOwner: TComponent = nil; const DefaultPort: Word; SilentExceptions: Boolean);
    destructor Destroy; override;
  end;

我如何在不改变参数顺序的情况下解决它(以下工作正常)。

constructor Create(const DefaultPort: Word; SilentExceptions: Boolean; const AOwner: TComponent = nil);

Answer 1

具有默认值的参数必须在参数列表中排在最后。如果任何参数有默认值，则所有后续参数也必须有默认值。

唯一的选择是定义两个重载:

 constructor Create(const AOwner: TComponent; 
                    const DefaultPort: Word; 
                    SilentExceptions: Boolean); overload;
 constructor Create(const DefaultPort: Word; 
                    SilentExceptions: Boolean); overload;

并让第二个调用第一个，为 AOwner 设置一个 nil 参数。