home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / t4_upd / errdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-24  |  545 b   |  27 lines
  1. PROGRAM ErrorDemo;
  2.  
  3. USES Error;
  4.  
  5. CONST
  6.   Dummy :BYTE = 255;
  7.  
  8. {$F+}
  9. PROCEDURE UserHandler (Number :BYTE; Address :POINTER);
  10. BEGIN
  11.   WriteLn;
  12.   WriteLn ('Achtung: Fehler Nr.', Number, ' aufgetreten!');
  13. END;
  14. {$F-}
  15.  
  16. BEGIN
  17.   SetErrorHandler (@UserHandler);
  18.                   (* Nur Floating-Point-Fehler abfangen: *)
  19.   ErrorsToHandle := [200,205..207];
  20.   ContinueAfterError := TRUE;
  21.   WriteLn (1/0);
  22.   WriteLn (Sqrt (-1));
  23.   WriteLn;
  24.   WriteLn ('Der nächste Fehler wird nicht abgefangen: ');
  25.   Dummy := Dummy * Dummy;
  26. END.
  27.