Delphi中相关单元

1.Delphi的TypInfo单元是什么？

TypInfo 单元是 Delphi 运行时类型信息 (RTTI) 的核心单元。它提供了一组函数和类型，用于在运行时检查和操作类型信息。这对于许多高级编程技术非常有用，例如对象检查器、序列化、持久化以及元编程。

TypInfo 单元的主要功能和用途：

• 运行时类型识别 (RTTI)： 允许程序在运行时确定对象的类型。
• 访问类型信息： 提供对类型名称、字段、方法、属性等信息的访问。
• 动态创建对象： 允许根据类型信息动态创建类的实例。
• 设置和获取属性值： 允许通过名称在运行时设置和获取对象的属性值。
• 方法调用： 允许通过名称在运行时调用对象的方法。
• 枚举类型信息： 允许遍历类的字段、方法、属性等。

TypInfo 单元中重要的类型和函数：

• PTypeInfo： 指向类型信息的指针。这是 TypInfo 中最重要的类型，它包含了类型的各种元数据。
• GetTypeInfo 函数： 返回给定类型的 PTypeInfo 指针。例如：PTypeInfo(TypeInfo(TMyClass))。
• GetPropInfo 函数： 返回给定类型的指定属性的信息。
• GetMethodInfo 函数： 返回给定类型的指定方法的信息。
• GetFieldInfo 函数： 返回给定类型的指定字段的信息。
• SetPropValue 和 GetPropValue 函数： 用于设置和获取对象的属性值。
• Invoke 函数： 用于调用对象的方法。
• TypeKind 类型： 枚举类型，表示类型的种类（例如 tkInteger、tkString、tkClass、tkMethod 等）。
• PPropInfo、PMethodInfo、PFieldInfo 类型： 分别包含属性、方法和字段的信息。

使用 TypInfo 的示例：

以下代码演示了如何使用 TypInfo 单元获取类的属性信息并设置属性值：

代码段

 

uses
  System.TypInfo, System.Rtti, System.SysUtils;

type
  TMyClass = class(TObject)
  private
    FName: string;
    FAge: Integer;
  published
    property Name: string read FName write FName;
    property Age: Integer read FAge write FAge;
  end;

procedure TestTypInfo;
var
  MyObject: TMyClass;
  PropInfo: PPropInfo;
begin
  MyObject := TMyClass.Create;
  try
    // 获取 TMyClass 类型的 PTypeInfo
    PropInfo := GetPropInfo(TypeInfo(TMyClass), 'Name');
    if PropInfo <> nil then
    begin
      // 使用 SetPropValue 设置 Name 属性的值
      SetPropValue(MyObject, PropInfo, 'Test Name');
    end;

    PropInfo := GetPropInfo(TypeInfo(TMyClass), 'Age');
    if PropInfo <> nil then
    begin
       // 使用 SetPropValue 设置 Age 属性的值
      SetPropValue(MyObject, PropInfo, 30);
    end;
    Writeln(Format('Name: %s, Age: %d', [MyObject.Name, MyObject.Age])); // 输出：Name: Test Name, Age: 30

    // 使用 RTTI context（更强大的方式）
    var context := TRttiContext.Create;
    try
      var rttiType := context.GetType(TypeInfo(TMyClass));
      var rttiProperty := rttiType.GetProperty('Name');
      rttiProperty.SetValue(MyObject, 'Another Name');
      rttiProperty := rttiType.GetProperty('Age');
      rttiProperty.SetValue(MyObject, 40);
      Writeln(Format('Name: %s, Age: %d', [MyObject.Name, MyObject.Age])); // 输出：Name: Another Name, Age: 40
    finally
        context.Free;
    end;

  finally
    MyObject.Free;
  end;
end;

begin
  TestTypInfo;
  Readln;
end.

与 System.Rtti 单元的比较：

Delphi XE2 引入了 System.Rtti 单元，它提供了一种更强大、更面向对象的 RTTI 机制。System.Rtti 提供了诸如 TRttiContext、TRttiType、TRttiProperty 等类，使 RTTI 的使用更加方便和类型安全。尽管 TypInfo 仍然可用，但在新的 Delphi 代码中，通常推荐使用 System.Rtti。上面的代码也演示了使用 System.Rtti 的方法，更加的简洁直观。

总结：

TypInfo 单元是 Delphi 中处理运行时类型信息的重要工具。它允许程序在运行时动态地检查和操作类型，从而实现一些高级的功能。虽然现在推荐使用 System.Rtti，但是理解 TypInfo 仍然有助于深入理解 Delphi 的类型系统。