今天一个好友在群里问：: 在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里完成。