Smart pascal source code


Type
   TObjClass = Class Of TObject;

{ main.pas }

var
  o : TObjClass;

Begin
try
   writeln(o.ClassName);
 except
   on E : Exception do
      WriteLn(E.Message);
end;

o:=TObject;
writeln(o.ClassName);

{ <<< CONSOLE OUTPUTS >>>
  TypeError, Cannot read property '$ClassName' of null
  TObject
}

      var o = null;
      try {
         WriteLn(ClassName$1(o));
      } catch ($e) {
         var E = $W($e);
         WriteLn(E.FMessage)      }
      o = TObject;
      WriteLn(ClassName$1(o));
	  
var Exception={
	$ClassName: "Exception",
	$Parent: TObject,
	$Init: function () { FMessage="" },
	Create: function (s,Msg) { s.FMessage=Msg; return s }
}
function $W(e) { return e.ClassType?e:Exception.Create($New(Exception),e.constructor.name+", "+e.message) }
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function $Is(o,c) {
	if (o===null) return false;
	return $Inh(o.ClassType,c);
};
function $Inh(s,c) {
	if (s===null) return false;
	while ((s)&&(s!==c)) s=s.$Parent;
	return (s)?true:false;
};