Create为什么可以为虚函数？

今天一个好友在群里问：
: 在VCL库里，大多数构造函数是virtual的，这是为啥
: 按理，在调用构造函数之前，对象都还没有，
: 当然也应该没有vtbl，那么这样virtual有什么意义呢？
: 所以C++里的构造函数没有virtual的。
: 难道Delphi里不是酱紫地？
: 那么vtbl是在什么时候被初始化的？

首先，为什么没有调用构造函数之前，调用virtual函数没有意义，而调用实函数就有意义呢？因为虚方法和实方法不同，调用实方法的时候，实际上是调用类的方法，在实例没有创建前，就可以调用的。而虚方法不同，虚方法依赖于实例，必须要实例的vmt表建立后才能调用。

那么回到主题，为什么vcl里很多构造函数是虚函数呢？

因为vcl的初始化实际上都是在ｎｅｗＩｎｓｔａｎｃｅ里完成的。
ｃｒｅａｔｅ只是把最后的堆内存，变成可用的指针
在delphi源代码里，可以看到：
class function TObject.NewInstance: TObject;
begin
  Result := InitInstance(_GetMem(InstanceSize));
end;
class function TObject.InitInstance(Instance: Pointer): TObject;
{$IFDEF PUREPASCAL}
var
  IntfTable: PInterfaceTable;
  ClassPtr: TClass;
  I: Integer;
begin
  FillChar(Instance^, InstanceSize, 0);
  PInteger(Instance)^ := Integer(Self);
  ClassPtr := Self;
  while ClassPtr <> nil do
  begin
    IntfTable := ClassPtr.GetInterfaceTable;
    if IntfTable <> nil then
      for I := 0 to IntfTable.EntryCount-1 do
  with IntfTable.Entries[I] do
  begin
    if VTable <> nil then
      PInteger(@PChar(Instance)[IOffset])^ := Integer(VTable);
  end;
    ClassPtr := ClassPtr.ClassParent;
  end;
  Result := Instance;
end;
{$ELSE}
可以看出，最终的构造是在newInstance里完成。

后记：本来问题到这里就结束了，谁知道哪天看书，发现原来NewInstance也是虚函数。$%#^$%^$#@!!那是怎么回事呢？原来是自己想多了，XXX.create调用的是类的方法，而在delphi里，类在进程启动的时候已经初始化了，虚拟表也存在，所以。。。。。。