home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip_2000-04_cd.bin / zkuste / TPascal / DEMOS.ARC / ERROR.PAS < prev    next >
Pascal/Delphi Source File  |  1989-05-02  |  302b  |  22 lines
  1.  
  2. { Copyright (c) 1985, 1989 by Borland International, Inc. }
  3.  
  4. unit Error;
  5. { Sample unit for CIRCULAR.PAS }
  6.  
  7. interface
  8.  
  9. procedure ShowError(Msg : string);
  10.  
  11. implementation
  12.  
  13. uses
  14.   Crt, Display;
  15.  
  16. procedure ShowError(Msg : string);
  17. begin
  18.   WriteXY(1, 25, 'Error: ' + Msg);
  19. end;
  20.  
  21. end.
  22.