System.Rtti.TRttiObject.GetAttributes 简例

MAttribute = class(TCustomAttribute)
  private
    FName: string;
  public
    constructor Create(AName: string);
  end;
  TMyClass = class
  private
    FProp2: Integer;
    FProp1: string;
    procedure SetProp1(const Value: string);
    procedure SetProp2(const Value: Integer);
  public
    procedure Methd1(const A,B: string);
    function Func1: Boolean;
  published
    [M('Prop1')]
    property Prop1: string read FProp1 write SetProp1;
    [M('Prop2')]
    property Prop2: Integer read FProp2 write SetProp2;
  end;

procedure TForm1.btn1Click(Sender: TObject);
var
  c: TRttiContext;
  t: TRttiType;
  ms: TArray<TRttiMethod>;
  ps: TArray<TRttiProperty>;
  fs: TArray<TRttiField>;
  ats: TArray<TCustomAttribute>;
  a : TCustomAttribute;
  m: TRttiMethod;
  p: TRttiProperty;
  f: TRttiField;
begin
  c := TRttiContext.Create;
  t := c.GetType(TMyClass);
  ms :=  t.GetMethods;
  ps := t.GetProperties;
  fs := t.GetFields;
  ats := t.GetAttributes;

  for p in ps do
  begin
    for a in p.GetAttributes do
    begin
      if a is MAttribute then
      begin
        mmo1.Lines.Add(p.Name + ':' + MAttribute(a).FName);
      end;
    end;
  end;

  mmo1.Lines.Add('-------------Methods-----------');
  for m in ms do
  mmo1.Lines.Add(m.Name);
  mmo1.Lines.Add('------------Properties---------');
  for p in ps do
  mmo1.Lines.Add(p.Name);
  mmo1.Lines.Add('--------------Fields-----------');
  for f in fs do
  mmo1.Lines.Add(f.Name);

end;