8 lines
171 B
ObjectPascal
8 lines
171 B
ObjectPascal
|
type t1<T> = class end;
|
|||
|
|
|
|||
|
|
procedure p1(self:t1<T>); extensionmethod := exit;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var a := new t1<byte>;
|
|||
|
|
a.p1{@(расширение) procedure t1<T>.p1();@};
|
|||
|
|
end.
|