Cách tạo và đính kèm thuộc tính tùy chỉnh vào trường tại thời gian chạy ở Delphi

Question

Có thể và cách tạo và đính kèm thuộc tính tùy chỉnh vào trường trong thời gian chạy không?

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. 

Chạy trên mã sản xuất đầu ra:

Bar Title 

Tôi muốn tiêm MyAttribute với giá trị Empty đến lĩnh vực mà không có nó trong thời gian chạy sản xuất sau đầu ra:

Bar Title 
Other Empty 

Answer 1

Khung công tác không cung cấp cơ chế để gắn các thuộc tính vào thời gian chạy. Bất kỳ nỗ lực để làm như vậy sẽ liên quan đến hack khung.

Answer 2

Thuộc tính là phép thuật thời gian biên dịch. Trong thời gian chạy bạn không cần những thứ như vậy. Chỉ cần tạo từ điển của riêng nơi mà kiểu và thành viên (thành viên có thể được đặt làm chuỗi) là khóa, và danh sách các thuộc tính là giá trị. Và, khi bạn cần phải kiểm tra các thuộc tính làm điều đó bằng hai cách - phổ biến và trong từ điển của bạn.