12 lines
160 B
ObjectPascal
12 lines
160 B
ObjectPascal
|
type
|
|||
|
|
TMyAttribute<T> = class(System.Attribute)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
ByteAttribute = TMyAttribute<byte>;
|
|||
|
|
|
|||
|
|
[ByteAttribute()]
|
|||
|
|
TClass = class
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
end.
|