home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / lzw4p12.zip / LZW_ERRS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-21  |  705b  |  29 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. begin
  16.   case Code of
  17.      EXPANSION_ERROR:
  18.        writeln('Expansion Error: Can only expand a previously compressed file');
  19.      CANNOT_ALLOCATE:
  20.        writeln('Allocation Error: Could not allocate sufficient memory');
  21.      INTERNAL_ERROR:
  22.        writeln('Internal Error: LZW4P object code modified !');
  23.      NOT_INITIALIZED:
  24.        writeln('Not Initialized Error: Must run InitLZW() first');
  25.   else writeln('Unknown error returned = ',Code);
  26.   end;
  27. end;
  28.  
  29. end.