Smart pascal source code


type
  TBase = partial class end;

type
  TSub = class(TBase)
    SubField: Integer;
    function SubTest: Integer; virtual; abstract;
  end;

type
  TBase = partial class BaseField: Integer;
  function BaseTest: Integer; virtual; abstract;
end;

type
  TSubSub = class(TSub)
    function SubTest: Integer; override;
    begin
      Result := SubField;
    end;

    function BaseTest: Integer; override;
    begin
      Result := BaseField;
    end;
  end;

var o := new TSubSub;
    o.BaseField := 1;
    o.SubField := 2;

WriteLn(o.BaseField);
WriteLn(o.SubField);

WriteLn(o.BaseTest);
WriteLn(o.SubTest);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
2
1
2
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TBase = {
   $ClassName:"TBase",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.BaseField = 0;
   }
   ,Destroy:TObject.Destroy
   ,BaseTest$:function($){return $.ClassType.BaseTest($)}
};
var TSub = {
   $ClassName:"TSub",$Parent:TBase
   ,$Init:function ($) {
      TBase.$Init($);
      $.SubField = 0;
   }
   ,Destroy:TObject.Destroy
   ,BaseTest:TBase.BaseTest
   ,SubTest$:function($){return $.ClassType.SubTest($)}
};
var TSubSub = {
   $ClassName:"TSubSub",$Parent:TSub
   ,$Init:function ($) {
      TSub.$Init($);
   }
   ,SubTest:function(Self) {
      return $Check(Self,"").SubField;
   }
   ,BaseTest:function(Self) {
      return $Check(Self,"").BaseField;
   }
   ,Destroy:TObject.Destroy
   ,BaseTest$:function($){return $.ClassType.BaseTest($)}
   ,SubTest$:function($){return $.ClassType.SubTest($)}
};
var o = null;

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

   o = TObject.Create($New(TSubSub));
   $Check(o,"").BaseField = 1;
   $Check(o,"").SubField = 2;
   WriteLn($Check(o,"").BaseField);
   WriteLn($Check(o,"").SubField);
   WriteLn(TBase.BaseTest$($Check(o,"")));
   WriteLn(TSub.SubTest$($Check(o,"")));