17 lines
229 B
ObjectPascal
17 lines
229 B
ObjectPascal
var x := 0;
|
|
|
|
type
|
|
t1 = partial class end;
|
|
|
|
t0 = class
|
|
constructor := x := 1;
|
|
constructor(p: byte) := x := 2;
|
|
end;
|
|
t1 = partial class(t0)
|
|
|
|
end;
|
|
|
|
begin
|
|
new t1(5);
|
|
Assert(x = 2);
|
|
end. |