Delphi虚拟构造函数

Question

这个问题已经在这里有了答案：

• Delphi：了解构造函数 4个答案

我正在阅读这篇文章是因为我想了解class of [ClassName]的有用性，并且我已经看到它们声明了一个虚拟构造函数。 所以我做了一个测试，您可以在这里看到：

我从那篇文章中了解到，当我在编译时不知道要构造的class of并且可以使用的class of时，虚拟构造函数很有用。 在上面显示的代码中，有什么区别？

如果我在不覆盖TSecond的情况下将TFirst构造函数声明为虚拟的，我会得到警告，当然我可以重新引入或覆盖它。 但是构造函数是否会自动覆盖（请看左侧的代码）？ 我认为他们是同等的。

Answer 1

使用这两种变体执行此代码，您将看到不同之处。

type
  TFirstClass = class of TFirst;

constructor TFirst.Create;
begin
  Writeln('TFirst.Create');
end;

constructor TSecond.Create;
begin
  Writeln('TSecond.Create');
end;

var
  firstClass: TFirstClass;
  first: TFirst;
begin
  firstClass := TSecond;
  first := firstClass.Create;
end.