10 lines
101 B
ObjectPascal
10 lines
101 B
ObjectPascal
|
type
|
|||
|
|
TAttr = class(System.Attribute)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure P1([TAttr]x: byte) := exit;
|
|||
|
|
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
end.
|