home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / internet / BIBLECD / PREVOD.ZIP / CHYBY.PAS next >
Encoding:
Pascal/Delphi Source File  |  1996-12-20  |  2.0 KB  |  64 lines
  1. unit Chyby;
  2.  
  3. interface
  4.  
  5. {Funkce "chyba" vrací vysvêtlení chybového kódu jako ⌐etêzec String:}
  6. function Chyba(cislo:Byte):String;
  7.  
  8. implementation
  9.  
  10. function Chyba(cislo:Byte):String;
  11. begin
  12.   case cislo of
  13.     1: Chyba:='Invalid function number';
  14.     2: Chyba:='File not found';
  15.     3: Chyba:='Path not found';
  16.     4: Chyba:='Too many open files';
  17.     5: Chyba:='File access denied';
  18.     6: Chyba:='Invalid file handle';
  19.    12: Chyba:='Invalid file access code';
  20.    15: Chyba:='Invalid drive number';
  21.    16: Chyba:='Cannot remove current directory';
  22.    17: Chyba:='Cannot rename across drives';
  23.    18: Chyba:='No more files';
  24.   100: Chyba:='Disk read error';
  25.   101: Chyba:='Disk write error';
  26.   102: Chyba:='File not assigned';
  27.   103: Chyba:='File not open';
  28.   104: Chyba:='File not open for input';
  29.   105: Chyba:='File not open for output';
  30.   106: Chyba:='Invalid numeric format';
  31.   150: Chyba:='Disk is write-protected';
  32.   151: Chyba:='Bad drive request struct length';
  33.   152: Chyba:='Drive not ready';
  34.   154: Chyba:='CRC error in data';
  35.   156: Chyba:='Disk seek error';
  36.   157: Chyba:='Unknown media type';
  37.   158: Chyba:='Sector Not Found';
  38.   159: Chyba:='Printer out of paper';
  39.   160: Chyba:='Device write fault';
  40.   161: Chyba:='Device read fault';
  41.   162: Chyba:='Hardware failure';
  42.   200: Chyba:='Division by zero';
  43.   201: Chyba:='Range check error';
  44.   202: Chyba:='Stack overflow error';
  45.   203: Chyba:='Heap overflow error';
  46.   204: Chyba:='Invalid pointer operation';
  47.   205: Chyba:='Floating point overflow';
  48.   206: Chyba:='Floating point underflow';
  49.   207: Chyba:='Invalid floating point operation';
  50.   208: Chyba:='Overlay manager not installed';
  51.   209: Chyba:='Overlay file read error';
  52.   210: Chyba:='Object not initialized';
  53.   211: Chyba:='Call to abstract method';
  54.   212: Chyba:='Stream registration error';
  55.   213: Chyba:='Collection index out of range';
  56.   214: Chyba:='Collection overflow error';
  57.   215: Chyba:='Arithmetic overflow error';
  58.   216: Chyba:='General Protection fault';
  59.   end;
  60. end;
  61.  
  62. begin
  63. end.
  64.