delphi TForm上的RTTI GetFields和GetAttributes

bkhjykvo  于 2023-11-18  发布在  其他
关注(0)|答案(1)|浏览(140)

我有一个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

k3bvogb1

k3bvogb11#

在你的项目中可能有一个$RTTI指令导致扩展RTTI无法工作。
尝试在TMyForm声明之前添加以下内容:

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

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

相关问题