delphi - 为什么Delphi允许构造函数参数不正确？

Question

这似乎是一个非常愚蠢的问题，但我不知道为什么允许编译:

program ConstructorWithParam;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

type

  TThing = class(TObject)
  private
    FParent: TObject;
  public
    constructor Create(const AParent: TObject);
  end;

{ TThing }

constructor TThing.Create; // <- WTF? Why does the compiler not complain?
begin
  FParent := AParent;
end;

var
  Thing: TThing;
begin
  try
    Thing := TThing.Create(TObject.Create);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

我使用的是Delphi XE5，尚未在其他版本上进行测试。谢谢。

Answer 1

表单类中的第一个声明被认为是正确的。实现版本无需识别所需参数；它们是由原始声明假设的。这是语言本身的一部分。

这是一个很好的例子来说明这一点:

type
  TMyClass = class (Tobject)
    procedure DoSometimg(DoA, DoB: Boolean);
  end;

实现:

procedure TMyClass.DoSomething;   // Note both parameters missing
begin
  if DoA then    // Note not mentioned in implementation declaration
    DoOneThing;   // but still can be used here
  if DoB then
    DoAnotherThing;
end;

我个人更喜欢使实现和接口(interface)声明匹配，因为这样可以更轻松地识别参数，而无需在代码编辑器中跳来跳去。