TObject.Create 与 TComponent.Create 之间的关系 - 关于 A Object 的创建过程.docVIP

问题：TObject.Create 与 TComponent.Create 之间的关系 - 关于 A Object 的创建过程 ( 积分：100, 回复：31, 阅读：539 )分类：控件 - 开发 ( 版主：cAkk, amo ) 来自：savetime, 时间：2003-12-31 11:35:00, ID：2385681 [显示：小字体 | 大字体] 最近在读 VCL 源代码，被 TObject 和 TComponent 的 Create 方法弄糊涂了：TObject.Create 调用 System._ClassCreate, System._ClassCreate 又调用TObject.NewInstance, TObject.NewInstace 调用 TObject.InitInstance, 最后又调用了 TObject.AfterConstruction.TObject.Create 不是虚方法.可是到了 TComponent, TComponent.Create(AOwner: TComponent); virtual 覆盖了TObject.Create, 那么考查以下语句:var?AObj: TComponent;begin?AObj := TComponet.Create(nil);end;这时 TComponent.Create 如何能够调用 TObject.Create 方法呢？是不是Object.Create 方法一定会在任何类的 Constructor 函数之前自动调用。如果是这样，那么 TObject.AfterConstructor 应该是在 Constructor 方法之前调用，而这时(假设为TComponent) TComponent.Create(AOwner) 还没有执行，也就是说继承类还没有初始化之前就调用AfterConstructor，这显然是不对的。希望有人能解释一下 TComponent.Create(AOwner: TComponent) 的编译器实现过程。另外还有一个相关问题，TThreadList的定义如下：TThreadList = class { 从TObject继承而来 }constructor TThreadList.Create; begin?inherited Create; { 这里的inherited Create是指什么,莫非是TObject.Create?}?InitializeCriticalSection(FLock); { 使用Windows函数调用建立临界区 }?FList := TList.Create;?FDuplicates := dupIgnore;end;TTheadList是从 TObject 继承下来的，它的 Create 方法中有一句 inherited Create;这个inherited Create是调用 TObject.Create 吗？而 TObject.Create 不是虚方法。希望有人能解释这个语句的意义。? 来自：savetime, 时间：2003-12-31 11:42:00, ID：2385695 我几乎阅读了整个 Delphi 的 Object Pascal Reference 及 TObject, TPersisent,TComponent 的源码，可是还是不理解对象的创建过程，请高手指点。对此问题感兴趣的人请帮忙把问题提前。 ? 来自：Camel_bbs, 时间：2003-12-31 12:23:00, ID：2385832 AnObject := TObject.Create;编译器将其编译实现为：用TObject对应的VMT为依据，调用TObject的Create构造函数。而在Create构造函数调用了系统的ClassCreate过程，系统的ClassCreate过程又通过存储在类VMT调用NewInstance虚方法。调用NewInstance方法的目的是要建立对象的实例空间，因为我们没有重载该方法，所以，它就是TObject类的NewInstance。TObjec类的NewInstance方法将根据编译器在VMT表中初始化的对象实例尺寸（InstanceSize），调用GetMem过程为该对象分配内存，然后调用InitInstance方法将分配的空间初始化。InitInstance方法首先将对象空间的头4个字节初始化为指向对象类对应VMT的指针，然后将其余的空间清零。建立对象实例之后，还调用了一个虚方法AfterConstruction。最后，将对象实例数据的地址指针保存到AnObject变