14 lines
141 B
ObjectPascal
14 lines
141 B
ObjectPascal
type A = class
|
|
constructor;
|
|
begin
|
|
|
|
end;
|
|
function Clone(): A;
|
|
begin
|
|
Result := self.Create;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
|
|
end. |