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.
|