Smart pascal source code


try
  WriteLn('Hello');
except
  WriteLn('BUG');
finally
  WriteLn(' World');
end;

try
  raise new Exception('DOH');
except
  WriteLn('Exception ');
finally
  WriteLn('World');
end;

type
  EMyExcept = class(Exception)
  end;

try
  raise new EMyExcept('Bye');
except
  on E: EMyExcept do
    WriteLn(E.Message)
  else
    WriteLn('Bug');
finally
  WriteLn(' World');
end;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Hello World
Exception World
Bye World

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var EMyExcept = {
   $ClassName:"EMyExcept",$Parent:Exception
   ,$Init:function ($) {
      Exception.$Init($);
   }
   ,Destroy:Exception.Destroy
};

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

   try {
      try {
         WriteLn("Hello");
      } catch ($e) {
         WriteLn("BUG");
      }
   } finally {
      WriteLn(" World");
   }
   try {
      try {
         throw Exception.Create($New(Exception),"DOH");
      } catch ($e) {
         WriteLn("Exception ");
      }
   } finally {
      WriteLn("World");
   }
   try {
      try {
         throw Exception.Create($New(EMyExcept),"Bye");
      } catch ($e) {
         if ($Is($e,EMyExcept)) {
            var E = $W($e);
            WriteLn($Check(E,"").FMessage)         }
         else {
            WriteLn("Bug")         }
      }
   } finally {
      WriteLn(" World");
   }