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

TestSamples/CompilationSamples/interface_test.pas

29 строк368 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses
  interface_unit, interface_unit2, System;

type
  MyClass = class(MyInter1)
  public
    procedure p(k: integer);
    begin
      writeln(k*3);
    end;
    function Clone: object; 
    begin
      result := nil;
    end;
  end;
  
var
  k: MyClass;
  m: MyC;
  i: MyInter1;

begin
  k := new MyClass;
  k.p(2);
  m := new MyC;
  i := m;
  i.p(1);
  readln;
end.