Variants in custom attributes (Delphi compat)
Original Reporter info from Mantis: zamtmn @zamtmn
-
Reporter name: Andrey Zubarev
Original Reporter info from Mantis: zamtmn @zamtmn
- Reporter name: Andrey Zubarev
Description:
program Project1;
{$modeswitch prefixedattributes}
type
MyAttribute = class(TCustomAttribute)
public
constructor Create(const X: Variant);
end;
constructor MyAttribute.Create(const X: Variant);
begin
end;
type
[My(1)] //<------------error here
TMyType = class
end;
begin
end.
project1.lpr(15,8) Error: Constant Expression expected
Mantis conversion info:
- Mantis ID: 38215
- Version: 3.3.1