delphi - 错误的 RTTI 可见性信息和缺少的属性

Question

我的应用程序中本质上有以下类(class)

TCategory = class(TAbstractionTreeItem)
  private
    fName: String;
    fParent: Integer;
    fComment: String;
  public
    procedure Default; override;
  protected
    procedure Validate(Validation: TValidation); override;
  published
    [AbstractionField]
    property Name: string read fName write fName;
    [AbstractionField]
    property Parent: Integer read fParent write fParent;
    [AbstractionField]
    property Comment: String read fComment write fComment;
  end;

当我现在尝试通过 Delphi XE 中的高级 RTTI 获取信息时，我得到了已发布属性的可见性信息，结果告诉我它们只是公共(public)的，而我添加的属性根本没有显示。

那里发生了什么？我已经尝试验证它是我尝试分析的正确类，并且在发生更改时重新编译属于它的单元。这似乎不是问题。

Answer 1

为了让您提供的代码进行编译，我更改了以下内容:

AbstractionField = class(TCustomAttribute)
end;

TCategory = class(TObject)
  private
    fName: String;
    fParent: Integer;
    fComment: String;
  public
    procedure Default; 
  protected
    procedure Validate(Validation: Integer); 
  published
    [AbstractionField]
    property Name: string read fName write fName;
    [AbstractionField]
    property Parent: Integer read fParent write fParent;
    [AbstractionField]
    property Comment: String read fComment write fComment;
  end;

然后我编写了以下代码来查询属性的可见性:

var
 C : TRttiContext;
 T : TRttiType;
 P : TRttiProperty;

begin
  T := C.GetType(TCategory.ClassInfo);
  for P in T.GetProperties do
  begin
     Memo1.Lines.Add(P.Name + ' ' + 
                     GetEnumName(TypeInfo(TMemberVisibility),ord(P.Visibility)) );
  end;
end;

我的结果(如预期):

Name mvPublished
Parent mvPublished
Comment mvPublished

我也在使用 Delphi XE，您将不得不提供更多代码，以便我们可以复制问题。

还要确保检查警告:
[DCC 警告] UnitName.pas(LineNum):W1025 不支持的语言功能:“自定义属性”

这是识别属性是否输入错误且编译器无法找到的唯一方法。