software - programacion delphi ejemplos

¿Qué elementos del lenguaje se pueden anotar utilizando la función de lenguaje de atributos de Delphi?

Question

Delphi 2010 introdujo atributos personalizados que se pueden agregar a declaraciones y métodos de tipo. ¿Para qué elementos del lenguaje se puede usar un atributo personalizado?

Los ejemplos que he encontrado hasta ahora incluyen declaraciones de clase, campos y métodos. (Y las clases genéricas AFAIK no admiten atributos personalizados).

Algunos ejemplos se muestran en este artículo . Parece que las variables (externas a cualquier declaración de clase) también pueden tener atributos.

Según este artículo, los atributos se pueden usar para

• campos y métodos de clase y registro
• parámetros del método
• propiedades
• declaraciones de enumeración no locales
• declaraciones de variables no locales

¿Hay otros elementos de idioma donde se pueden colocar los atributos?

Actualización: este artículo indica que los atributos personalizados se pueden colocar antes de las propiedades: http://francois-piette.blogspot.de/2013/01/using-custom-attribute-for-data.html

Contiene este ejemplo de código:

type
  TConfig = class(TComponent)
  public
    [PersistAs(''Config'', ''Version'', ''1.0'')]
    Version : String;
    [PersistAs(''Config'', ''Description'', ''No description'')]
    Description : String;
    FTest : Integer;
    // No attribute => not persistent
    Count : Integer;
    [PersistAs(''Config'', ''Test'', ''0'')]
    property Test : Integer read FTest write FTest;
  end;

Supongo que también hay una forma de leer atributos en argumentos de métodos como

procedure Request([FormParam] AUsername: string; [FormParam] APassword: string);

Answer 1

¡Interesante pregunta! Puede declarar atributos en casi cualquier cosa , el problema es recuperarlos usando RTTI. Aquí hay una demostración rápida de la consola para declarar atributos personalizados para:

• Enums
• Tipo de función
• Tipo de procedimiento
• Tipo de método ( of object )
• Tipo de alias
• Tipo de registro
• Tipo de clase
• Tipo de registro interno de una clase
• Campo de registro
• Método de registro
• Campo de instancia de clase
• Campo clase class ( class var )
• Método de clase
• Variable global
• Función global
• Variable local

No encontré una forma de declarar un atributo personalizado para una property de una clase. Pero un atributo personalizado se puede adjuntar a los métodos getter o setter.

Código, la historia continúa después del código:

program Project25;

{$APPTYPE CONSOLE}

uses
  Rtti;

type
  TestAttribute = class(TCustomAttribute);

  [TestAttribute] TEnum = (first, second, third);
  [TestAttribute] TFunc = function: Integer;
  [TestAttribute] TEvent = procedure of object;
  [TestAttribute] AliasInteger = Integer;

  [TestAttribute] ARecord = record
    x:Integer;
    [TestAttribute] RecordField: Integer;
    [TestAttribute] procedure DummyProc;
  end;

  [TestAttribute] AClass = class
  strict private
    type [TestAttribute] InnerType = record y:Integer; end;
  private
    [TestAttribute]
    function GetTest: Integer;
  public
    [TestAttribute] x: Integer;
    [TestAttribute] class var z: Integer;
    // Can''t find a way to declare attribute for property!
    property Test:Integer read GetTest;
    [TestAttribute] class function ClassFuncTest:Integer;
  end;

var [TestAttribute] GlobalVar: Integer;

[TestAttribute]
procedure GlobalFunction;
var [TestAttribute] LocalVar: Integer;
begin
end;

{ ARecord }

procedure ARecord.DummyProc;
begin
end;

{ AClass }

class function AClass.ClassFuncTest: Integer;
begin
end;

function AClass.GetTest: Integer;
begin
end;

begin
end.

El problema es recuperar esos atributos personalizados. Mirando la unidad rtti.pas , los atributos personalizados pueden ser recuperados para:

• Tipo de registro ( TRttiRecordType )
• Tipo de instancia ( TRttiInstanceType )
• Tipo de método ( TRttiMethodType )
• Tipo de puntero ( TRttiPointerType ): ¿para qué se usa?
• Tipo de procedimiento ( TRttiProcedureType )

No hay forma de recuperar ningún tipo de RTTI para nivel de "unidad" o variables y procedimientos locales, por lo tanto, no hay forma de recuperar información sobre los atributos.