113 lines
2.3 KiB
ObjectPascal
113 lines
2.3 KiB
ObjectPascal
|
uses System;
|
||
|
|
|
||
|
|
type
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.All, AllowMultiple=false)]
|
||
|
|
MyAllAttr = class(Attribute)
|
||
|
|
end;
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.Class, AllowMultiple=true)]
|
||
|
|
MyClassAttr = class(Attribute)
|
||
|
|
a : integer;
|
||
|
|
public fA : string;
|
||
|
|
public property Prop : integer read a write a;
|
||
|
|
end;
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.Delegate, AllowMultiple=true)]
|
||
|
|
MyDelegateAttr = class(Attribute)
|
||
|
|
a : integer;
|
||
|
|
public fA : string;
|
||
|
|
public property Prop : integer read a write a;
|
||
|
|
end;
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.Struct, AllowMultiple=true)]
|
||
|
|
MyStructAttr = class(Attribute)
|
||
|
|
a : integer;
|
||
|
|
public fA : string;
|
||
|
|
public property Prop : integer read a write a;
|
||
|
|
end;
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.Method, AllowMultiple=true)]
|
||
|
|
MyProcAttr = class(Attribute)
|
||
|
|
private a, b : integer;
|
||
|
|
constructor (a, b : integer);
|
||
|
|
begin
|
||
|
|
self.a := a;
|
||
|
|
self.b := b;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.Field, AllowMultiple=true)]
|
||
|
|
MyFieldAttr = class(Attribute)
|
||
|
|
a : integer;
|
||
|
|
public fA : string;
|
||
|
|
public property Prop : integer read a write a;
|
||
|
|
end;
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.Constructor, AllowMultiple=true)]
|
||
|
|
MyConstructorAttr = class(Attribute)
|
||
|
|
a : integer;
|
||
|
|
public fA : string;
|
||
|
|
public property Prop : integer read a write a;
|
||
|
|
end;
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.Enum, AllowMultiple=true)]
|
||
|
|
MyEnumAttr = class(Attribute)
|
||
|
|
a : integer;
|
||
|
|
public fA : string;
|
||
|
|
public property Prop : integer read a write a;
|
||
|
|
end;
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.Parameter, AllowMultiple=true)]
|
||
|
|
MyParamAttr = class(Attribute)
|
||
|
|
a : integer;
|
||
|
|
public fA : string;
|
||
|
|
public property Prop : integer read a write a;
|
||
|
|
end;
|
||
|
|
|
||
|
|
[AttributeUsage(AttributeTargets.Property, AllowMultiple=true)]
|
||
|
|
MyPropertyAttr = class(Attribute)
|
||
|
|
a : integer;
|
||
|
|
constructor Create(x : integer);
|
||
|
|
begin
|
||
|
|
|
||
|
|
end;
|
||
|
|
public fA : string;
|
||
|
|
public property Prop : integer read a write a;
|
||
|
|
end;
|
||
|
|
|
||
|
|
[MyAllAttr]
|
||
|
|
[MyStructAttr, MyStructAttr]
|
||
|
|
TRec = record
|
||
|
|
end;
|
||
|
|
|
||
|
|
[MyEnumAttr]
|
||
|
|
TColor = (red, green, blue);
|
||
|
|
|
||
|
|
[MyAllAttr, MyDelegateAttr]
|
||
|
|
TFunc = function(x : real):real;
|
||
|
|
|
||
|
|
[MyClassAttr, MyAllAttr]
|
||
|
|
TestClass = class
|
||
|
|
[MyFieldAttr(fA='abcd',Prop=34)]
|
||
|
|
fld : integer;
|
||
|
|
ch : char;
|
||
|
|
|
||
|
|
[MyPropertyAttr(2,Prop=32,fA='aa')]
|
||
|
|
property MyProp : char read ch;
|
||
|
|
|
||
|
|
[MyConstructorAttr(fA='abcd',Prop=34)]
|
||
|
|
constructor Create;
|
||
|
|
begin
|
||
|
|
|
||
|
|
end;
|
||
|
|
[MyProcAttr(23,45)]
|
||
|
|
procedure Proc([MyParamAttr(fA='xyz')]a : char);
|
||
|
|
begin
|
||
|
|
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
end.
|