17 lines
257 B
ObjectPascal
17 lines
257 B
ObjectPascal
uses System;
|
|
|
|
type
|
|
[AttributeUsage(AttributeTargets.Field or AttributeTargets.Property) ]
|
|
myattr = class (Attribute) end;
|
|
|
|
TClass = class
|
|
[myattr]
|
|
a: integer;
|
|
|
|
[myattr]
|
|
property prop: integer read a;
|
|
|
|
end;
|
|
|
|
begin
|
|
end. |