Custom Attributes/ru

ATTRIBUTECLAUSE::='[' ATTRIBUTELIST ']'
     ATTRIBUTELIST::=ATTRIBUTE [, ATTRIBUTELIST ]
     ATTRIBUTE::=IDENTIFIER [ ( PARAMLIST ) ]
     PARAMLIST::=CONSTEXPR [, PARAMLIST ]

program tcustomattr;
    
    {$mode objfpc}{$H+}
    {$modeswitch prefixedattributes}
    
    type
       TMyAttribute = class(TCustomAttribute)
         constructor Create;
         constructor Create(aArg: String);
         constructor Create(aArg: TGUID);
         constructor Create(aArg: LongInt);
       end;
    
       {$M+}
       [TMyAttribute]
       TTestClass = class
       private
         fTest: LongInt;
       published
         [TMyAttribute('Test')]
         property Test: LongInt read fTest;
       end;
       {$M-}
    
       [TMyAttribute(1234)]
       [TMy('Hello World')]
       TTestEnum = (
         teOne,
         teTwo
       );
    
       [TMyAttribute(IInterface), TMy(42)]
       TLongInt = type LongInt;
    
    constructor TMyAttribute.Create;
    begin
    end;
    
    constructor TMyAttribute.Create(aArg: String);
    begin
    end;
    
    constructor TMyAttribute.Create(aArg: LongInt);
    begin
    end;
    
    constructor TMyAttribute.Create(aArg: TGUID);
    begin
    end;
    
    begin
    
    end.

procedure Test; [cdecl];
    begin
    end;

program testattributes;
    {
      Это простой пример использования настраиваемых атрибутов.
      Класс использует настраиваемый атрибут для получения статической даты.
      при запуске программы. Это только для демонстрации.
      Это демо:
      - создает
      - украшает
      - возвращает
    }
       
    {$mode delphi}{$H+}{$M+}
    {$warn 5079 off} { отключаем экспериментальное предупреждение }
    uses
      sysutils, typinfo, rtti, classes;
     
    type
       {Пользовательский атрибут для украшения класса с определенной датой }
       ADateTimeAttribute = class(TCustomAttribute)
       private
         FArg:TDateTime;
       public
       { Просто чтобы показать, что пользовательский атрибут может иметь несколько конструкторов }
         constructor Create(const aArg: TDateTime);overload;
         { Мы можем использовать предопределенное включение компилятора %DATE%
           В контексте пользовательского атрибута нам нужно
           постоянное выражение для параметра по умолчанию}
         constructor Create(const aArg: String = {$I %DATE%});overload;
        published
         property Date:TDateTime read Farg;
       end;
     
       { Класс datetime, украшенный нашим пользовательским атрибутом                          }
       { Обратите внимание, что вы можете не указывать 'Attribute', компилятор разрешает это. }
       { [ADateTime(21237.0)] использует первый конструктор, отображая дату в 1958 году       }
     
       {Это вызывает второй конструктор }
       [ADateTime]
       TMyDateTimeClass = class
       private
         FDateTime:TDateTime;
       public
         constructor create;
       published
         [ADateTime]
         property Day:TDateTime read FDatetime write FdateTime;
       end;
     
       constructor ADateTimeAttribute.Create(const aArg: TDateTime);
       begin
         FArg := aArg;
       end;
     
       constructor ADateTimeAttribute.Create(const aArg: string );
       var
         MySettings:Tformatsettings;
       begin
         { настраиваем формат даты в соответствии с тем, как 
           задан включенный формат компилятора %DATE% }
         MySettings :=DefaultFormatSettings;
         MySettings.ShortDateFormat:='yyyymmdd';
         MySettings.DateSeparator :='/';
         { Теперь конвертируем }
         FArg := StrToDateTime(aArg, MySettings);
       end;
       
       { Мы запрашиваем rtti, чтобы задать значение }
       constructor TMyDateTimeClass.Create;
       var
        Context : TRttiContext;
        AType : TRttiType;
        Attribute : TCustomAttribute;
       begin
         inherited;  
         Context := TRttiContext.Create;
         try
           AType := Context.GetType(typeinfo(TMyDateTimeClass));
           for Attribute in  AType.GetAttributes do begin
             if Attribute is ADateTimeAttribute then
               FDateTime := ADateTimeAttribute(Attribute).Date;
           end;
         finally
           Context.Free
         end;    
       end;
     
     
    var
     Test:TMyDateTimeClass;      
    begin
       Test := TMyDateTimeClass.Create;
       try
         writeln('Дата компиляции :',DateTimeToStr(Test.Day));
      finally
        test.free;
      end;
    end.