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;