Требуется ли для атрибутов Delphi постоянный параметр? Если да, то почему?

Рассмотрим следующий (некомпилируемый) код:

program AttributesTestProgram;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Classes,
  RTTI;

type

  TDisplayTextAttribute = class(TCustomAttribute)
  private
    FDisplayText: string;
  public
    constructor Create(aDisplayText: string);
    property DisplayText: string read FDisplayText write FDisplayText;
  end;

constructor TDisplayTextAttribute.Create(aDisplayText: string);
begin
  FDisplayText := aDisplayText;
end;

function GetFirstName: string;
begin
  Result := 'First Name';
end;


type
  TCustomer = Class(TObject)
  private
    FFirstName: string;
    FLastName: string;
    FStreetAddress: string;
    FZIP: string;
    FState: string;
    FCity: string;
    FPhone: string;
  published
    [TDisplayTextAttribute(GetFirstName)]
    property FirstName: string read FFirstName write FFirstName;
  end;

begin
  // Code that does the work removed for clarity....
  Readln;
end.

Интересно, естественно, почему это не компилируется с ошибкой:

[DCC Error] AttributesTestProgram.dpr(40): E2026 Constant expression expected

Я предполагаю, что это как-то связано с идеей о том, что атрибуты должны быть связаны во время компиляции, или что-то в этом роде.

Следовательно, мои вопросы таковы:

Есть ли способ «обыграть систему» ​​здесь и получить значение времени выполнения в этом месте в атрибуте?


function delphi constants
person Nick Hodges    schedule 10.05.2011    source источник

Ответы (1)


arrow_upward
8
arrow_downward

Да, вам нужны константы, потому что параметры оцениваются как константы во время компиляции и сохраняются в таблицах RTTI. Кроме того, атрибуты принадлежат классу, а не экземплярам объекта, поэтому, если у вас более одного TCustomer, ваша идея становится бессмысленной.

Вы можете превзойти систему, предоставив атрибуту конструктор без параметров (или вообще не используя конструктор) и изменив свойство DisplayText на его метод, который принимает либо строку, либо объект, из которого вы можете извлечь строку.

person Mason Wheeler    schedule 10.05.2011
comment
Спасибо, Мейсон. Я поиграю с этим. - person Nick Hodges; 10.05.2011
comment
И как мне вызвать этот новый метод в объявлении атрибута? - person Nick Hodges; 10.05.2011
comment
@Nick: ... так же, как вы бы вызвали метод для любого другого объекта? (Не уверен, что понял ваш вопрос.) - person Mason Wheeler; 10.05.2011
comment
Чтобы продолжить, правильный ответ: «Вы не можете победить систему, и вы не должны этого хотеть» — это почти то, что сказал Мейсон. Я нашел другой, правильный способ инициализировать параметры конструктора с внедрением зависимостей, передав анонимный метод методу DelegateTo в Delphi Spring — не нужно пытаться настроить атрибут [Injection()]. - person Nick Hodges; 11.05.2011