Smart pascal source code


type
  TBase = class
  protected
    Field: Integer;
    property Prop: Integer read Field;
  end;

type
  TSub = class(TBase)
  public
    property Prop;
  end;

WriteLn(TSub.Create.Prop);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
0
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field = 0;
   }
   ,Destroy:TObject.Destroy
};
var TSub = {
   $ClassName:"TSub",$Parent:TBase
   ,$Init:function ($) {
      TBase.$Init($);
   }
   ,Destroy:TObject.Destroy
};

/* <<< main JS >>> */

   WriteLn($Check(TObject.Create($New(TSub)),"").Field)