Programming: theory and practice by alexBlack

 class function Tests.ViewException(E:Exception; Msg:String=''):boolean;

var A, B:integer;
begin
   tests.Init;
   (*$ifdef test*)
   tests.Execute;
   (*$endif*)

   try
      B := 0;
      A := 1;
      A := trunc(A / B);
      Writeln(A);
   except
      on E:Exception do tests.ViewException(E, 'test viewException');
   end;

 18.06.2009 22:15 Error   : test viewException
                            Exception class: EZeroDivide: Floating point division by zero
                            Address: 00418320

      on E:Exception do
         assert(tests.ViewException(E, 'test viewException'));

 class function Tests.SetOnViewError(F:TViewErrorProc):TViewErrorProc;

   TViewErrorProc = function(E:Exception; Msg:String):boolean;

 class procedure Tests.SaveException(E:Exception; Msg:String='');

   try
      // ...
   except
      on E:Exception do tests.SaveException(E, 'test viewException');
   end;