Smart pascal source code


  procedure Trigger;
  begin
    raise Exception.Create('');
  end;

  try
    try
      Trigger;
      WriteLn('Never here!');
    except
      WriteLn('Caught once');
      raise;
      WriteLn('Missed!');
    end;
  except
    WriteLn('Caught again');
  end;
  WriteLn('Ended');

  { <<< CONSOLE OUTPUTS >>>
    Caught once
    Caught again
    Ended
  }

      function Trigger() {
         throw Exception.Create($New(Exception),"");
      };
      try {
         try {
            Trigger();
            WriteLn("Never here!");
         } catch ($e) {
            WriteLn("Caught once");
            throw $e;
            WriteLn("Missed!");
         }
      } catch ($e) {
         WriteLn("Caught again");
      }
      WriteLn("Ended");

var Exception={
	$ClassName: "Exception",
	$Parent: TObject,
	$Init: function () { FMessage="" },
	Create: function (s,Msg) { s.FMessage=Msg; return s }
}