为什么 Delphi XE3 给出“E2382 无法使用实例变量调用构造函数”？

Question

我有一段简单的代码，它在 Delphi XE2 中编译，但在 XE3 中不编译，我不知道为什么。我已将有问题的代码减少到一点点，并想知道 Delphi 认为它有什么问题。尝试在 Delphi XE 2 中编译包含此单元的项目工作正常，但在 Delphi XE3（试用版）中，它给出“[dcc32 Error] AffineTransform.pas(26): E2382 Cannot call constructors using instance variables”。我在这里知道的唯一“古怪”的事情是使用老式的“对象”类型，其中构造函数与真实对象（基于 TObject 的类实例）中的构造函数并不完全相同。

如果我将这个对象中的“constructor”替换为“procedure”，那么它可以编译，但是为什么会这样，在我的代码中这是一个可以做的改变吗？对功能的影响？

unit AffineTransform;

interface

type
  { Rectangular area. }
  TCoordRect = object
  public
    Left, Top, Right, Bottom: Real;
    constructor CreatePos(ALeft, ATop, ARight, ABottom: Real);
    procedure   Include(AX, AY: Real);
  end;

implementation

constructor TCoordRect.CreatePos(ALeft, ATop, ARight, ABottom: Real);
begin
  Left := ALeft;
  Top := ATop;
  Right := ARight;
  Bottom := ABottom;
end;

procedure TCoordRect.Include(AX, AY: Real);
begin
  CreatePos(AX, AY, AX, AY)
end;

end.

Answer 1

我有一段简单的代码，在 Delphi XE2 中编译，但在 XE3 中编译不出来，我不知道为什么。

您试图在已经实例化和初始化的实例的方法内调用构造函数。编译器不再允许这样做。更具体地说，这段代码：

procedure TCoordRect.Include(AX, AY: Real); 
begin 
  CreatePos(AX, AY, AX, AY) 
end; 

和这段代码是一样的：

procedure TCoordRect.Include(AX, AY: Real); 
begin 
  Self.CreatePos(AX, AY, AX, AY) 
end; 

你不能再在Self 变量上调用构造函数了。为什么？ IIRC，它与编译器向支持移动开发的持续转变有关。

Answer 2

对于这种传统的 Turbo Pascal 风格object，关键字constructor 确实没有任何意义。尽管object 构造函数确实有一些特殊处理，但这里绝对不需要。这里所拥有的只不过是带有一些方法的record。

XE3 编译器已更改，因此它不再允许您在实例方法内调用 Self 上的构造函数。 class 和 object 都是这种情况。我没有看到任何文档说明为什么要进行此更改。毫无疑问，它会及时渗出。

您的直接解决方案是将constructor 替换为procedure。从长远来看，将其转换为record 而不是object 是有意义的。

---

我还建议您将方法名称更改为Initialize。一些图书馆设计师似乎选择在他们的记录中使用Create 和Free 方法。这导致大量的代码是这样编写的：

ctx := TRttiContext.Create;
try
  ....
finally
  ctx.Free;
end;

事实上，所有这些代码都是虚假的，可以简单地删除！ TRttiContext 变量会自动初始化。

这种设计也为喜欢使用FreeAndNil 的那群Delphi 程序员设置了一个巨大的Heffalump Trap。将记录传递给FreeAndNil 会引发一些有趣的烟花！