delphi - TForm 上的 Rtti GetFields 和 GetAttributes

Question

我有一个这样的 TForm：

TMyForm = class (TForm)
  [MyAttr('Data')] 
  edit1: TEdit;
private
 FData: String;
end

当我尝试通过 RTTI 获取此表单的字段时，我只得到 edit1 字段，而不是 FDATA，当我查询 edit1 字段属性时，得到一个空数组。

对于另一个不继承 TForm 的类，一切正常。为什么？

编辑样本

type


{$RTTI EXPLICIT FIELDS([vcPrivate,vcProtected, vcPublic])}
  TForm3 = class(TForm)
    [TCustomAttribute]
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    [TCustomAttribute]
    FData: String;
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
  LCtx: TRttiContext;
  LField: TRttiField;
  LAttr: TCustomAttribute;
begin
  for LField in LCtx.GetType(Self.ClassInfo).GetDeclaredFields do
  begin
      Memo1.Lines.Add(lField.Name);
      for LAttr in LField.GetAttributes do
        Memo1.Lines.Add(#9+LAttr.ClassName);

  end;
end;

end.

单击 button1 的结果：

FData
    TCustomAttribute
Button1
Memo1

Answer 1

您的项目中的某处可能存在$RTTI导致扩展 RTTI 无法工作的指令。

尝试在 TMyForm 声明之前添加以下内容：

{$RTTI EXPLICIT
  METHODS(DefaultMethodRttiVisibility)
  FIELDS(DefaultFieldRttiVisibility)
  PROPERTIES(DefaultPropertyRttiVisibility)}

这将为在它之后声明的所有内容重置 RTTI 生成，并且在那之后您应该获得正确的 RTTI。