18 lines
335 B
ObjectPascal
18 lines
335 B
ObjectPascal
|
{$reference l1.dll}
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
c0 = class end;
|
|||
|
|
|
|||
|
|
// обязательно использовать кастомный тип в качестве типоаргумента
|
|||
|
|
// с ns.c2<object> не проявляется
|
|||
|
|
c3 = class(ns.c2<c0>)
|
|||
|
|
procedure test;
|
|||
|
|
begin
|
|||
|
|
f1();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var obj := new c3;
|
|||
|
|
|
|||
|
|
end.
|