16 lines
274 B
ObjectPascal
16 lines
274 B
ObjectPascal
|
type
|
|||
|
|
t0<t> = class
|
|||
|
|
public static a1: byte := 2;
|
|||
|
|
end;
|
|||
|
|
t1 = class(t0<integer>)
|
|||
|
|
private procedure p1;
|
|||
|
|
begin
|
|||
|
|
var a2: word := 3;
|
|||
|
|
var pp1: ()->integer := ()-> a1 + a2;
|
|||
|
|
Assert(pp1=5);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
t1.Create.p1
|
|||
|
|
end.
|