Smart pascal source code


type
  TStatic = class
    class function Test(a: Integer): String; static;
    begin
      Result := IntToStr(a);
    end;
  end;

type
  TSubStatic = class(TStatic)
    class function Test(a: Integer): String; static;
    begin
      Result := TStatic.Test(a + 1);
    end;
  end;

WriteLn(TStatic.Test(1));
WriteLn(TSubStatic.Test(2));

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

var TStatic = {
   $ClassName:"TStatic",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Test:function(a) {
      return a.toString();
   }
   ,Destroy:TObject.Destroy
};
var TSubStatic = {
   $ClassName:"TSubStatic",$Parent:TStatic
   ,$Init:function ($) {
      TStatic.$Init($);
   }
   ,Test$1:function(a$1) {
      return TStatic.Test(a$1+1);
   }
   ,Destroy:TObject.Destroy
};

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

   WriteLn(TStatic.Test(1));
   WriteLn(TSubStatic.Test$1(2));