Smart pascal source code


type
  TMyClass = class
    Field: String;
    procedure Hello;
  end;

type
  TSubClass1 = class(TMyClass)
    constructor World;
    default;
  end;

type
  TSubClass2 = class(TMyClass)
    constructor World;
  end;

procedure TMyClass.Hello;
begin
  WriteLn('Hello ');
  WriteLn(Field);
end;

constructor TSubClass1.World;
begin
  Field := " World1 ";
end;

constructor TSubClass2.World;
begin
  Field := " World2 ";
end;

var o: TMyClass;

o := new TMyClass;
o.Hello;
o := new TSubClass1();
o.Hello;
new TSubClass1.Hello;
new TSubClass2().Hello;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Hello 
Hello World1
Hello World1
Hello 
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TMyClass = {
   $ClassName:"TMyClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field = "";
   }
   ,Hello:function(Self) {
      WriteLn("Hello ");
      WriteLn($Check(Self,"").Field);
   }
   ,Destroy:TObject.Destroy
};
var TSubClass2 = {
   $ClassName:"TSubClass2",$Parent:TMyClass
   ,$Init:function ($) {
      TMyClass.$Init($);
   }
   ,World:function(Self) {
      $Check(Self,"").Field = " World2 ";
      return Self
   }
   ,Destroy:TObject.Destroy
};
var TSubClass1 = {
   $ClassName:"TSubClass1",$Parent:TMyClass
   ,$Init:function ($) {
      TMyClass.$Init($);
   }
   ,World$1:function(Self) {
      $Check(Self,"").Field = " World1 ";
      return Self
   }
   ,Destroy:TObject.Destroy
};
var o = null;

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

   o = TObject.Create($New(TMyClass));
   TMyClass.Hello(o);
   o = TSubClass1.World$1($New(TSubClass1));
   TMyClass.Hello(o);
   TMyClass.Hello(TSubClass1.World$1($New(TSubClass1)));
   TMyClass.Hello(TObject.Create($New(TSubClass2)));