n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/interface_unit2.pas

28 строк355 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

Unit
  interface_unit2;

interface
  
uses
  interface_unit;
  
type
  MyC = class(object{, System.ICloneable}, MyInter1)
  public
    constructor;
    begin
    
    end;
    procedure p(x: integer);
    begin
      writeln(x);
    end;
    function Clone: object; virtual;
    begin
      result := new MyC;
    end;
  end;
  
implementation

end.