Smart pascal source code


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

type
  TSub = class(TBase)
    function Prop: Integer;
    begin
      Result := inherited Prop + 1;
    end;
  end;

var o1: TBase := new TBase;
var o2: TBase := new TSub;
var s := TSub.Create;

o1.Field := 10;
o2.Field := 20;
s.Field := 30;

WriteLn(o1.Prop);
WriteLn(o2.Prop);
WriteLn(s.Prop);
WriteLn(TBase(s).Prop);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
10
20
31
30
-----------------------------
{<<<<<<<<< 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($);
   }
   ,Prop$1:function(Self) {
      return $Check(Self,"").Field+1;
   }
   ,Destroy:TObject.Destroy
};
var o1 = null,
   o2 = null,
   s = null;

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

   o1 = TObject.Create($New(TBase));
   o2 = TObject.Create($New(TSub));
   s = TObject.Create($New(TSub));
   $Check(o1,"").Field = 10;
   $Check(o2,"").Field = 20;
   $Check(s,"").Field = 30;
   WriteLn($Check(o1,"").Field);
   WriteLn($Check(o2,"").Field);
   WriteLn(TSub.Prop$1(s));
   WriteLn($Check(s,"").Field);