14 lines
242 B
ObjectPascal
14 lines
242 B
ObjectPascal
uses construnit1;
|
|
type
|
|
t2=class
|
|
|
|
class constructor := exit;
|
|
private constructor := exit;
|
|
public constructor(b:byte) := exit;
|
|
|
|
end;
|
|
|
|
begin
|
|
new t1{@constructor t1(b: byte);@}();
|
|
new t2{@constructor t2();@}();
|
|
end. |