14 lines
211 B
ObjectPascal
14 lines
211 B
ObjectPascal
type
|
|
t1 = partial class
|
|
procedure p1 := exit;
|
|
end;
|
|
|
|
t1 = partial class
|
|
procedure p2 := exit;
|
|
end;
|
|
|
|
begin
|
|
var a := new t1;
|
|
a.p1{@procedure t1.p1();@};
|
|
a.p2{@procedure t1.p2();@};
|
|
end. |