带数组参数的属性构造函数

Question

今天我在这里重写了一些旧的东西，让自己陷入了一个我不知道答案的问题。

我创建了以下属性：

Enumeration<T> = class(TCustomAttribute)
strict private
    { Private declarations }
    FValues : TList<T>;
public
    { Public declarations }
    constructor Create(const AValues : array of T);
    destructor Destroy(); override;
public
    { Public declarations }
    property Values : TList<T> read FValues;
end;

考虑到这一点，我可以在以下类中很好地使用此属性，例如：

[Entity('tablename')]
TUser = class(TEntity)
strict private
   [Column('idcolumnname')]
   [PrimaryKey(True)]
   Fid : TInteger;

   [Column('typecolumnname')]
   [Enumeration<string>(['A', 'B', 'C', 'D', '...'])]
   Ftype: TEnumeration<string>;
end;

它工作得很好，但是 idk，在我看来这不应该工作，因为我的无知，delphi 属性只需要常量类型，而且我不仅使用数组作为参数，而且是通用的。

向前迈进，我做了这个属性：

Association = class(TCustomAttribute)
strict private
    { Private declarations }
    FMasterKeys : TList<string>;
    FDetailKeys : TList<string>;
public
    { Public declarations }
    constructor Create(const AMasterKeys, ADetailKeys : array of string);
    destructor Destroy(); override;
public
    { Public declarations }
    property MasterKeys : TList<string> read FMasterKeys;
    property DetailKeys : TList<string> read FDetailKeys;
end;

并尝试在此类上使用：

[Entity('tablename')]
TSuperUser = class(TEntity)
strict private
    [Association(['masterkey'], ['detailkey'])]
    Fuser : TAssociation<TUser>;
end;

我收到一个错误 [DCC 错误] E2026 常量表达式。

好的，所以在简历中我只是不知道为什么我可以使用 T 数组作为属性参数而不是字符串数组。

感谢您提前提供任何帮助

Answer 1

检查您的编译器警告。它应该为您的“编译代码”显示W1025 Unsupported language feature: 'custom attribute'。所以你虽然编译的实际上没有。它只是没有引发错误。

这通常是在无法找到属性类的情况下，因为事实上您不能拥有通用属性。在 XE7 中仍然如此。

底线：即使它确实编译了您的可执行文件也不会包含该属性。