Smart pascal source code


type
  TMyClass = class
    constructor Build(i: Integer); virtual;
    default;
  end;

type
  TSubClass = class(TMyClass)
    constructor Build(i: Integer); override;
  end;

constructor TMyClass.Build(i: Integer);
begin
  WriteLn('Root class ');
  WriteLn(i);
end;

constructor TSubClass.Build(i: Integer);
begin
  WriteLn('Sub class ');
  WriteLn(i);
end;

var o1 := new TMyClass(10);
var o2 := new TSubClass(20);

WriteLn(o1.ClassName);
WriteLn(o2.ClassName);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Root class 10
Sub class 20
TMyClass
TSubClass
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TMyClass = {
   $ClassName:"TMyClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Build:function(Self, i) {
      WriteLn("Root class ");
      WriteLn(i);
      return Self
   }
   ,Destroy:TObject.Destroy
   ,Build$:function($){return $.ClassType.Build.apply($.ClassType, arguments)}
};
var TSubClass = {
   $ClassName:"TSubClass",$Parent:TMyClass
   ,$Init:function ($) {
      TMyClass.$Init($);
   }
   ,Build:function(Self, i$1) {
      WriteLn("Sub class ");
      WriteLn(i$1);
      return Self
   }
   ,Destroy:TObject.Destroy
   ,Build$:function($){return $.ClassType.Build.apply($.ClassType, arguments)}
};
var o1 = null,
   o2 = null;

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

   o1 = TMyClass.Build$($New(TMyClass),10);
   o2 = TMyClass.Build$($New(TSubClass),20);
   WriteLn(ClassName$1($ToClassType(o1)));
   WriteLn(ClassName$1($ToClassType(o2)));