unit Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;


type
  MyTestAttribute = class(TCustomAttribute)
  protected
    FTestValue: Variant;
  public
    constructor Create(aTestValue: Variant);
    property TestValue: Variant read FTestValue write FTestValue;
  end;


type
  TMyClass = class(TObject)
  private
    FField2: Integer;
    FField3: Double;
    FField1: string;
    FField6: TObject;
    FField4: Boolean;
    FField5: TDateTime;
  public
    property Prop1: string read FField1 write FField1;
    property Prop2: Integer read FField2 write FField2;
    property Prop3: Double read FField3 write FField3;
    [MyTest(1)]
    property Prop4: Boolean read FField4 write FField4;
    property Prop5: TDateTime read FField5 write FField5;
    property Prop6: TObject read FField6 write FField6;
  end;


type
  TForm1 = class(TForm)
    ResultMemo: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FMyClass: TMyClass;
    procedure ShowRttiInfo;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses
  System.Rtti;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowRttiInfo;
end;

procedure TForm1.ShowRttiInfo;
var
  ctx: TRttiContext;
  t: TRttiType;
  p: TRttiProperty;
  a: TCustomAttribute;
begin
  ResultMemo.Clear;
  ctx := TRttiContext.Create;
  for t in ctx.GetTypes do
  begin
    if t.Name = 'TMyClass' then
    begin
      for p in t.GetProperties do
      begin
        ResultMemo.Lines.Add(Format('Name: %s; Visibility: %d; Type: %s', [p.Name, Integer(p.Visibility), p.PropertyType.ToString]));
        ResultMemo.Lines.Add('Attributes:');

        for a in p.GetAttributes do
          ResultMemo.Lines.Add(a.ClassName);
      end;
      ResultMemo.Lines.Add('Attributes of the class');
      for a in t.GetAttributes do
        ResultMemo.Lines.Add(a.ClassName);
    end;
  end;
end;

{ DBFieldAttribute }

constructor MyTestAttribute.Create(aTestValue: Variant);
begin
  FTestvalue := aTestValue;
end;

end.