home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / SYSTEM / GETTIME.ZIP / IOERRMSG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-10  |  1.2 KB  |  37 lines
  1. unit ioerrmsg;
  2. interface
  3. type str30 = string[30];
  4. function errmsg(i: integer): str30;
  5. implementation
  6. function errmsg(i: integer): str30;
  7. begin
  8.   case i of
  9.     2: errmsg := 'file not found';
  10.     3: errmsg := 'path not found';
  11.     4: errmsg := 'too many open files';
  12.     5: errmsg := 'file access denied';
  13.     100: errmsg := 'disk read error';
  14.     101: errmsg := 'disk write error';
  15.     102: errmsg := 'file not assigned';
  16.     103: errmsg := 'file not open';
  17.     104: errmsg := 'file not open for input';
  18.     105: errmsg := 'file not open for output';
  19.     106: errmsg := 'invalid numeric format';
  20.     150: errmsg := 'disk is write-protected';
  21.     151: errmsg := 'unknown unit';
  22.     152: errmsg := 'drive not ready';
  23.     153: errmsg := 'unknown command';
  24.     154: errmsg := 'CRC error in data';
  25.     155: errmsg := 'bad drive request structure length';
  26.     156: errmsg := 'disk seek error';
  27.     157: errmsg := 'unknown media type';
  28.     158: errmsg := 'sector not found';
  29.     159: errmsg := 'printer out of paper';
  30.     160: errmsg := 'device write fault';
  31.     161: errmsg := 'device read fauld';
  32.     162: errmsg := 'hardware error';
  33.     else errmsg := 'unknown error type';
  34.   end;
  35. end;
  36.  
  37. end.