Expert Delphi
上QQ阅读APP看书,第一时间看更新

Runtime Type Information

RTTI provides reflection capabilities to the Object Pascal language. With reflection, different types of meta-programming scenarios are possible. You can, for example, write code that will be able to operate on objects that it does not know about. RTTI provides abstractions for all the different types available in the Object Pascal language in the System.Rtti unit that comes with Delphi. All classes and built-in simple types can be treated in a unified way using the TValue record. If you want to programmatically inspect a type and to know whether it is a class and what members it contains, you can use TRttiContext, which has a GetType method that returns an instance of the TRttiType reference, which has methods that let you inspect a given type and iterate through all its members if it is a class.

In our documentation attribute example, we can use RTTI to retrieve documentation URLs for the type itself and for its methods. Refer to the following code snippet:

uses RTTI, uDocAttribute, uMySuperClass; 
 
procedure TFormDemo.Button1Click(Sender: TObject); 
var 
  ctx: TRttiContext; 
  t: TRttiType; 
  m: TRttiMethod; 
  a: TCustomAttribute; 
begin 
  ClearLog; 
 
  ctx := TRttiContext.Create; 
  try 
    t := ctx.GetType(TMySuperClass); 
 
    for a in t.GetAttributes do 
          if a is DocAttribute then 
            Log(Format('Type = %s; Attribute = %s, URL = %s', 
              [TMySuperClass.ClassName, a.ClassName, DocAttribute(a).URL])); 
 
    for m in t.GetMethods do 
      for a in m.GetAttributes do 
        if a is DocAttribute then 
          Log(Format('Type = %s; Method = %s; Attribute = %s, URL = %s', 
            [TMySuperClass.ClassName, m.Name, a.ClassName, DocAttribute(a).URL])); 
 
  finally 
    ctx.Free; 
  end; 
end; 

The RTTI context object owns all the intermediate objects that represent different class members such as TRttiMethod or TRttiAttribute.