home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / STRLIST / DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1992-03-11  |  860b  |  33 lines
  1. Program Demo;
  2. uses CritErr;
  3.  
  4. { Demo - force a critical error }
  5.  
  6. {$I- }
  7.  
  8. Var
  9.   f : File;
  10.   IOError : Integer;
  11. Begin
  12.   WriteLn('Please open the door of your A: drive '+
  13.     '- Press <Enter> when ready...');
  14.   ReadLn;
  15.   WriteLn('We now force a critical error...');
  16.   Assign(f, 'A:\BOGUS.!!!');
  17.   Reset(f, 1);
  18.   IOError := IOResult;
  19.   If IOError > 0 Then
  20.     Begin
  21.       WriteLn('I/O operation failed with return code: ', IOError);
  22.       If IOError >= 150 Then
  23.         With ExtError Do
  24.           Begin
  25.             WriteLn('Error:  ', ExtErrorString(Code));
  26.             WriteLn('Locus:  ', ExtErrorString(mLocus+Locus));
  27.             WriteLn('Action: ', ExtErrorString(mAction+Action));
  28.             WriteLn('Class:  ', ExtErrorString(mClass+Class));
  29.           end
  30.       Else
  31.         WriteLn('A critical did not occur.');
  32.     end;
  33. end.