24 lines
381 B
ObjectPascal
24 lines
381 B
ObjectPascal
|
//!Атрибут myattr неприменим к методам
|
|||
|
|
uses System;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
[AttributeUsage(AttributeTargets.Field or AttributeTargets.Property) ]
|
|||
|
|
myattr = class (Attribute) end;
|
|||
|
|
|
|||
|
|
TClass = class
|
|||
|
|
[myattr]
|
|||
|
|
a: integer;
|
|||
|
|
|
|||
|
|
[myattr]
|
|||
|
|
property prop: integer read a;
|
|||
|
|
|
|||
|
|
[myattr]
|
|||
|
|
procedure Test;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
end.
|