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

TestSamples/CompilationSamples/modif_test.pas

24 строки325 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses modif_test_unit;


type  
c=class
  private
  pp:integer;
  procedure p; begin end;
  
  end;{}
c1=class(c)
  public
  //procedure p;override; begin writeln('cc');  end;
  constructor create;begin end;
  end;
  
var cc:c1;
begin
  cc:=new c1;
  //cc.p;//error
  //writeln(cc.pp);
//  writeln(cc.p);//error
  readln;
end.