delphi的rtti机制浅探

《delphi的rtti机制浅探》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Delphi的RTTI机制浅探0RTTI简介O类(class)和VMT的关系O类(class)>类的类(classofclass)>类变量(classvariable)的关系OTObject.ClassType和TObject.ClassinfoOis和as运算符的原理OTTypelnfo-RTTI信息的结构O获取类(class)的属性(property)信息O获取方法(method)的类型信息O获取有序类型(ordinal).集合(set)类型的RTTI信息O获取苴它数据类型的RTTI信息本文排版格式为：正文由窗口自动换行；所有代码以80字符为边界；

2、中英文字符以空格符分隔。(作者保留对本文的所有权利，未经作者同意请勿在在任何公共媒体转载。)正文ORTTI简介RTTI(Run-TimeTypeInformation)翻译过来的名称是“运行期类型信息”，也就是说可以在运行期获得数据类型或类(class)的信息。这个RTTI到底有什么用处，我现在也说不清楚。我是在阅读Delphi持续机制的代码中发现了很多RTTI的运用，只好先把RTTI学习一遍。下面是我的学习笔记。如果你发现了错误请告诉我。谢谢！Delphi的RTTI主要分为类(class)的RTTI和一般数据类型的RTTI,下面从类(class)开始

3、。O类(class)和VMT的关系一个类(class),从编译器的角度來看就是一个指向VMT的指针(在后文用VMTptr表示)。在类的VMTptr的负地址方向存储了一些类信息的指针，这些指针的值和指针所指的内容在编译后就确定了。比如VMTptr-44的内容是指向类名称(ClassName)的指针。不过一般不使用数值来访问这些类信息，而是通过System,pas中定义的以vmt开头的常量，如vtmClassName>vmtParent等来访问。类的方法有两种：对象级别的方法和类级别的方法。两者的Self指针意义是不同的。在对象级别的方法中Self指向对象

4、地址空间，因此可以用它來访问对象的成员函数；在类级别的方法中Self指向类的VMT,因此只能用它來访问VMT信息，而不能访问对象的成员字段。0类(class)>类的类(classofclass)类变量(classvariable)的关系上面说到类(class)就是VMTptr。在Delphi中还可以用classof关键字定义类的类，并且可以使用类的类定义类变量。从语法上理解这三者的关键并不难，把类当成普通的数据类型來考虑就可以了。在编译器级别上表现如何呢？为了简化讨论，我们使用TObject、TClass和TMyClass来代表上面说的三种类型：typ

5、eTClass二classofTObject;varTMyClass:TClass;MyObject:TObject;beginTMyClass:二TObject;MyObject:=TObject.Create;MyObject:二TClass.Create;MyObject:二TMyClass.Create;end;在上面的例子中，三个TObject对象都被成功地创建了。编译器的实现是:TObject是一个VMTPtr常量oTClass也是一个VMTptr常量，它的值就是TObjectoTMyClass是一个VMTptr变量，它被赋值为TObjec

6、toTObject.Create与TClass.Create的汇编代码完全相同。但TClass不仅缺省代表一个类，而且还（主要）代表了类的类型，可以用它來定义类变量，实现一些类级别的操作。OTObject.ClassType和TObject.ClassinfofunctionTObject.ClassType:TClass;beginPointer(Result):=PPointer(Self)end;TObject.ClassType是对象级别的方法，Self的值是指向对象内存空间的指针，对象内存空间的前4个字节是类的VMTptc因此这个函数的返回值

7、就是类的VMTptcclassfunctionTObject・Classinfo:Pointer;beginResult:二PPointer(Integer(Self)+vmtTypelnfo);end;TObject.Classinfo使用class关键字定义，因此是一个类级别的方法。该方法屮的Self指针就是VMTptc所以这个函数的返冋值是VMTptr负方向的vmtTypelnfo的内容。TObject.Classinfo返回的Pointer扌旨针，实际上是指向类的RTTI结构的指针。但是不能访问TObject.Classinfo指向的内容(TO

8、bject.Classinfo返回值是0),因为Delphi只在TPersistent类及TP