Smart pascal source code


type
  TMyClass = class
  end;

var c: TClass;

try
  new c;
except
  on E: Exception do
    WriteLn(E.Message);
end;

c := TObject;
WriteLn(new c.ClassName);

c := TMyClass;
WriteLn(new c.ClassName);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
ClassType is nil [line: 8, column: 8]
TObject
TMyClass
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var TMyClass = {
   $ClassName:"TMyClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};
var c = null;

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

   try {
      TObject.Create($NewDyn(c,""));
   } catch ($e) {
      var E = $W($e);
      WriteLn($Check(E,"").FMessage)   }
   c = TObject;
   WriteLn(ClassName$1($ToClassType(TObject.Create($NewDyn(c,"")))));
   c = TMyClass;
   WriteLn(ClassName$1($ToClassType(TObject.Create($NewDyn(c,"")))));