Jak utworzyć i dołączyć atrybut niestandardowy do pola w środowisku wykonawczym w Delphi

Question

Czy jest możliwe i jak utworzyć i dołączyć niestandardowy atrybut do pola w środowisku wykonawczym?

uses 
    System.SysUtils, 
    System.Classes, 
    System.Rtti; 

type 
    MyAttribute = class(TCustomAttribute) 
    private 
    fCaption: string; 
    public 
    constructor Create(const aCaption: string); 
    property Caption: string read fCaption write fCaption; 
    end; 

    TFoo = class(TPersistent) 
    public 
    [MyAttribute('Title')] 
    Bar: string; 
    Other: string; 
    end; 

constructor MyAttribute.Create(const aCaption: string); 
begin 
    fCaption := aCaption; 
end; 

procedure CreateAttributes(Typ: TRttiType); 
var 
    Field: TRttiField; 
    MyAttr: MyAttribute; 
begin 
    for Field in Typ.GetFields do 
    begin 
     if Length(Field.GetAttributes) = 0 then 
     begin 
      MyAttr := MyAttribute.Create('Empty'); 
      // how to attach created attribute to Field ??? 
     end; 
    end; 
end; 

var 
    Context: TRttiContext; 
    Typ: TRttiType; 
    Field: TRttiField; 
    Attr: TCustomAttribute; 

begin 
    Context := TRttiContext.Create; 
    Typ := Context.GetType(TFoo); 

    CreateAttributes(Typ); 

    for Field in Typ.GetFields do 
    for Attr in Field.GetAttributes do 
     if Attr is MyAttribute then 
     writeln(Field.Name + ' ' + MyAttribute(Attr).Caption); 
    readln; 
    Context.Free; 
end. 

Running powyższy kod wyjściowy:

Bar Title 

Chciałbym wstrzyknąć MyAttribute o wartości Empty do pól, które nie mają go w czasie wykonywania produkcji następujące dane wyjściowe:

Bar Title 
Other Empty 

Answer 1

Struktura nie zapewnia mechanizmu dołączania atrybutów w czasie wykonywania. Każda próba takiego rozwiązania wymagałaby włamania do frameworka.

Answer 2

Atrybuty to magia podczas kompilacji. W czasie wykonywania nie potrzebujesz takich rzeczy. Wystarczy utworzyć własny słownik, gdzie typ i członek (członek może być ustawiony jako łańcuch) jest kluczem, a lista atrybutów jest wartością. A jeśli chcesz sprawdzić atrybuty, wykonaj to na dwa sposoby - często iw słowniku.