Delphi7 VCL 类结构代码分析与解释之一——TObject类

    本文以Borland公司的Delphi 7产品为基础，介绍Delphi7 VCL 类结构代码，对其中每一个类中的方法代码作逐条的分析与解释，以求能真正理解VCL。

    我知道，这是一项庞大、长久、艰苦的工作，但是不这样做不行。我用了好多年的Delphi，用它的VCL组件，我早就发现，如果不做这项工作，我将永远无法深入理解Delphi，事实的确如此。

    之所以选中Delphi7，主要考虑到几个原因

    1〉她是Delphi产品中编写Win32原生代码的最后一个版本（以后都是.Net了）

    2〉这个版本的参考资料比较多

    3〉该版本使用的人多，性能稳定性好

    好了，不说废话，我们开始进入正题

 

    我们今天研究VCL的对象之王（也是所有对象的根类）——TObject类中的代码，下面是该类的声明：

1.   TObject = class
2.     constructor Create;
3.     procedure Free;
4.     class function InitInstance(Instance: Pointer): TObject;
5.     procedure CleanupInstance;
6.     function ClassType: TClass;
7.     class function ClassName: ShortString;
8.     class function ClassNameIs(const Name: string): Boolean;
9.     class function ClassParent: TClass;
10.     class function ClassInfo: Pointer;
11.     class function InstanceSize: Longint;
12.     class function InheritsFrom(AClass: TClass): Boolean;
13.     class function MethodAddress(const Name: ShortString): Pointer;
14.     class function MethodName(Address: Pointer): ShortString;
15.     function FieldAddress(const Name: ShortString): Pointer;
16.     function GetInterface(const IID: TGUID; out Obj): Boolean;
17.     class function GetInterfaceEntry(const IID: TGUID): PInterfaceEntry;
18.     class function GetInterfaceTable: PInterfaceTable;
19.     function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; virtual;
20.     procedure AfterConstruction; virtual;
21.     procedure BeforeDestruction; virtual;
22.     procedure Dispatch(var Message); virtual;
23.     procedure DefaultHandler(var Message); virtual;
24.     class function NewInstance: TObject; virtual;
25.     procedure FreeInstance; virtual;
26.     destructor Destroy; virtual;
27.   end;