如何获取自定义属性的属性类型名称？

Question

在Delphi 2007中,我为项目添加了一个新的字符串类型:

type
  String40 = string;

此属性用于类:

type
  TPerson = class
  private
    FFirstName = String40;
  published
    FirstName: string40 read FFirstName write FFirstName;
  end;

在运行时,我想通过使用RTTI获取属性FirstName的名称.我希望它是String40:

var
  MyPropInfo: TPropInfo;
  PropTypeName: string;
  MyPerson: TPerson;
begin
  MyPerson := TPerson.Create;
  MyPropInfo := GetPropInfo(MyPerson, 'FirstName')^;
  PropTypeName := MyPropInfo.PropType^.Name;

但是,在此示例中,PropTypeName是'string'.我需要做什么才能获得正确的属性类型名称'String40'？

Answer 1

这适用于Delphi5

type
  String40 = type string;

至于你的其余代码,你应该有RTTI可用

• 继承TPersistent或TPerson
• 对TPerson使用{$ M +}编译器指令
• 发布Firstname属性

编辑:如果编译并运行这段代码会发生什么？

program Project1;

uses
  Classes,
  typInfo,
  Dialogs,
  Forms;

{$R *.RES}

type
  String40 = type string;
  TPerson = class(TPersistent)
  private
    FFirstName: String40;
  published
    property FirstName: string40 read FFirstName write FFirstName;
  end;

var
  MyPropInfo: TPropInfo;
  PropTypeName: string;
  MyPerson: TPerson;

begin
  Application.Initialize;
  MyPerson := TPerson.Create;
  MyPropInfo := GetPropInfo(MyPerson, 'FirstName')^;
  PropTypeName := MyPropInfo.PropType^.Name;
  ShowMessage(PropTypeName);
end.