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.
|
||
|
|
|
||
|
|
|