11 lines
159 B
ObjectPascal
11 lines
159 B
ObjectPascal
|
unit construnit1;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
t1=class
|
|||
|
|
|
|||
|
|
class constructor := exit;
|
|||
|
|
private constructor := exit;
|
|||
|
|
public constructor(b:byte) := exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|