home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / dos.swg / 0032_Customizing Run-Time!.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-05-25  |  4.5 KB  |  89 lines
  1.  
  2. Unit SHOWREM;
  3. {Show Runtime Error Messages}
  4. {Written by C. Enders (1994)}
  5. {Usage : Write the next line in your Main pascal program.
  6.  Uses Showrem;
  7.  This unit provides the meaning of the error codes while you are running
  8.  your pascal programs. If other users are using your program they get
  9.  frustrated if they see a message like
  10.    Runtime error 200: at 1234:abcd.
  11.  This unit let your program show error messages like :
  12.    Runtime Error 200: Division by zero.
  13.  Use of this program is free and no royalties must be paid if you use this
  14.  routines in your (commercial) programs (perhaps some credits like thanks
  15.  to ...).
  16.  If you need any help e-mail at C.W.G.M.ENDERS@KUB.NL
  17. }
  18.  
  19. InterFace
  20.  
  21. Implementation
  22.  
  23. Procedure WriteErrormessage;
  24. Begin
  25.   Writeln;
  26.   Case Exitcode of
  27.       1 : Writeln('Runtime Error ',exitcode,': ','Invalid function number.');
  28.       2 : Writeln('Runtime Error ',exitcode,': ','File not found.');
  29.       3 : Writeln('Runtime Error ',exitcode,': ','Path not found.');
  30.       4 : Writeln('Runtime Error ',exitcode,': ','Too many open files.');
  31.       5 : Writeln('Runtime Error ',exitcode,': ','File access denied.');
  32.       6 : Writeln('Runtime Error ',exitcode,': ','Invalid file handle.');
  33.      12 : Writeln('Runtime Error ',exitcode,': ','Invalid file access code.');
  34.      15 : Writeln('Runtime Error ',exitcode,': ','Invalid drive number.');
  35.      16 : Writeln('Runtime Error ',exitcode,': ','Cannot remove current
  36. directory.');
  37.      17 : Writeln('Runtime Error ',exitcode,': ','Cannot rename across
  38. drives.');
  39.      18 : Writeln('Runtime Error ',exitcode,': ','No more files.');
  40.     100 : Writeln('Runtime Error ',exitcode,': ','Disk read error.');
  41.     101 : Writeln('Runtime Error ',exitcode,': ','Disk write error.');
  42.     102 : Writeln('Runtime Error ',exitcode,': ','File not assigned.');
  43.     103 : Writeln('Runtime Error ',exitcode,': ','File not open.');
  44.     104 : Writeln('Runtime Error ',exitcode,': ','File not open for input.');
  45.     105 : Writeln('Runtime Error ',exitcode,': ','File not open for output.');
  46.     106 : Writeln('Runtime Error ',exitcode,': ','Invalid numeric format.');
  47.     150 : Writeln('Runtime Error ',exitcode,': ','Disk is write-protected.');
  48.     151 : Writeln('Runtime Error ',exitcode,': ','Bad drive request struct
  49. length.');
  50.     152 : Writeln('Runtime Error ',exitcode,': ','Drive not ready.');
  51.     154 : Writeln('Runtime Error ',exitcode,': ','CRC error in data.');
  52.     156 : Writeln('Runtime Error ',exitcode,': ','Disk seek error.');
  53.     157 : Writeln('Runtime Error ',exitcode,': ','Unknown media type.');
  54.     158 : Writeln('Runtime Error ',exitcode,': ','Sector Not Found.');
  55.     159 : Writeln('Runtime Error ',exitcode,': ','Printer out of paper.');
  56.     160 : Writeln('Runtime Error ',exitcode,': ','Device write fault.');
  57.     161 : Writeln('Runtime Error ',exitcode,': ','Device read fault.');
  58.     162 : Writeln('Runtime Error ',exitcode,': ','Hardware failure.');
  59.     200 : Writeln('Runtime Error ',exitcode,': ','Division by zero.');
  60.     201 : Writeln('Runtime Error ',exitcode,': ','Range check error.');
  61.     202 : Writeln('Runtime Error ',exitcode,': ','Stack overflow error.');
  62.     203 : Writeln('Runtime Error ',exitcode,': ','Heap overflow error.');
  63.     204 : Writeln('Runtime Error ',exitcode,': ','Invalid pointer operation.');
  64.     205 : Writeln('Runtime Error ',exitcode,': ','Floating point overflow.');
  65.     206 : Writeln('Runtime Error ',exitcode,': ','Floating point underflow.');
  66.     207 : Writeln('Runtime Error ',exitcode,': ','Invalid floating point operation.');
  67.     208 : Writeln('Runtime Error ',exitcode,': ','Overlay manager not installed.');
  68.     209 : Writeln('Runtime Error ',exitcode,': ','Overlay file read error.');
  69.     210 : Writeln('Runtime Error ',exitcode,': ','Object not initialized.');
  70.     211 : Writeln('Runtime Error ',exitcode,': ','Call to abstract method.');
  71.     212 : Writeln('Runtime Error ',exitcode,': ','Stream registration error.');
  72.     213 : Writeln('Runtime Error ',exitcode,': ','Collection index out of range.');
  73.     214 : Writeln('Runtime Error ',exitcode,': ','Collection overflow error.');
  74.     215 : Writeln('Runtime Error ',exitcode,': ','Arithmetic overflow error.');
  75.     216 : Writeln('Runtime Error ',exitcode,': ','General Protection fault.');
  76.   End; {case}
  77.   ErrorAddr := Nil; {This can be Nil, if so you borland IDE will not
  78.                      display the Runtime Error Message}
  79. End; {WriteErrorMessage}
  80.  
  81. Procedure InitError;
  82. Begin
  83.   ExitProc := @WriteErrormessage;
  84. End;{InitError}
  85.  
  86. Begin{Body}
  87.   InitError;
  88. End.
  89.