今天一个好友在群里问：
: 在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里完成。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
