Ist es möglich, Attribute für Delphi-Methodenargumente zu verwenden?

Question

Ist dieser gültige Code mit neueren Delphi-Versionen?

// handle HTTP request "example.com/products?ProductID=123" 
procedure TMyRESTfulService.HandleRequest([QueryParam] ProductID: string); 

In diesem Beispiel wird das Argument "ProductID" mit [QueryParam] zugeschrieben. Wenn dies in Delphi gültiger Code ist, muss es auch eine Möglichkeit geben, RTTI-basierten Code zu schreiben, um die attributierte Argumenttypinformation zu finden.

Siehe meine vorherige Frage Which language elements can be annotated using attributes language feature of Delphi?, die einige Sprachelemente auflistet, die über die Arbeit mit Attributen berichtet haben. Attribute für Argumente fehlten in dieser Liste.

Answer 1

Ja, Sie können:

program Project1; 

{$APPTYPE CONSOLE} 

uses 
    Rtti, 
    SysUtils; 

type 
    QueryParamAttribute = class(TCustomAttribute) 
    end; 

    TMyRESTfulService = class 
    procedure HandleRequest([QueryParam] ProductID: string); 
    end; 

procedure TMyRESTfulService.HandleRequest(ProductID: string); 
begin 

end; 

var 
    ctx: TRttiContext; 
    t: TRttiType; 
    m: TRttiMethod; 
    p: TRttiParameter; 
    a: TCustomAttribute; 
begin 
    try 
    t := ctx.GetType(TMyRESTfulService); 
    m := t.GetMethod('HandleRequest'); 
    for p in m.GetParameters do 
     for a in p.GetAttributes do 
     Writeln('Attribute "', a.ClassName, '" found on parameter "', p.Name, '"'); 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    Readln; 
end.