18 lines
160 B
ObjectPascal
18 lines
160 B
ObjectPascal
Unit
|
|
interface_unit;
|
|
|
|
interface
|
|
|
|
uses
|
|
System;
|
|
|
|
type
|
|
MyInter1 = interface(ICloneable)
|
|
procedure p(x: integer);
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|
|
|