home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / lzw4p12 / lzw_errs.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-09  |  814 b   |  32 lines
  1. Unit LZW_ERRS;
  2.  
  3. interface
  4.  
  5. procedure SayError(Code:Integer);
  6.  
  7. implementation
  8.  
  9. procedure SayError(Code:Integer);
  10. const
  11.  EXPANSION_ERROR  = -1;
  12.  CANNOT_ALLOCATE  = -2;
  13.  INTERNAL_ERROR   = -3;
  14.  NOT_INITIALIZED  = -4;
  15.  BAD_BITCODE      = -5;
  16. begin
  17.   case Code of
  18.      EXPANSION_ERROR:
  19.        writeln('Expansion Error: Can only expand a previously compressed file');
  20.      CANNOT_ALLOCATE:
  21.        writeln('Allocation Error: Could not allocate sufficient memory');
  22.      INTERNAL_ERROR:
  23.        writeln('Internal Error: LZW4P object code modified !');
  24.      NOT_INITIALIZED:
  25.        writeln('Not Initialized Error: Must run InitLZW() first');
  26.      BAD_BITCODE:
  27.        writeln('Bad bitcode. Expected value of 12, 13, or 14');
  28.   else writeln('Unknown error returned = ',Code);
  29.   end;
  30. end;
  31.  
  32. end.