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属性只期望常量类型，我不仅使用数组作为参数，而且是通用的。

移动foward，我做了这个属性：

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中仍然如此。

底线：即使编译完成，您的可执行文件也不会包含该属性。

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

1 个答案: