stre.inc 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869
  1. {
  2. $Id$
  3. This file is part of the Free Pascal run time library.
  4. Copyright (c) 1998 by the Free Pascal development team
  5. This file implements english error message strings
  6. See the file COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************}
  12. {
  13. English string constants for any messages issued by the sysutils unit.
  14. Please have them ordered by constant name.
  15. }
  16. Const
  17. { Error messages for exceptions }
  18. SAbstractError = 'Abstract method called';
  19. SAccessDenied = 'Access denied';
  20. SAccessViolation = 'Access violation';
  21. SArgumentMissing = 'Missing argument in format "%s"';
  22. SAssertError = '%s (%s, line %d)';
  23. SAssertionFailed = 'Assertion failed';
  24. SDiskFull = 'Disk Full';
  25. SDivByZero = 'Division by zero';
  26. SEndOfFile = 'Read past end of file';
  27. SFileNotAssigned = 'File not assigned';
  28. SFileNotOpen = 'File not open';
  29. SFileNotOpenForInput = 'File not open for input';
  30. SFileNotOpenForOutput = 'File not open for output';
  31. SInvalidArgIndex = 'Invalid argument index in format "%s"';
  32. SInvalidDrive = 'Invalid drive specified';
  33. SInvalidFileHandle = 'Invalid file handle';
  34. SInValidFileName = 'Invalid filename';
  35. SInvalidFormat = 'Invalid format specifier : "%s"';
  36. SInvalidInput = 'Invalid input';
  37. SInvalidInteger = '"%s" is an invalid integer';
  38. SInvalidPointer = 'Invalid pointer operation';
  39. SOutOfMemory = 'Out of memory';
  40. SRangeError = 'Range check error';
  41. SInvalidCast = 'Invalid type cast';
  42. STooManyOpenFiles = 'Too many open files';
  43. SUnKnownRunTimeError = 'Unknown Run-Time error : %3.3d';
  44. {
  45. $Log$
  46. Revision 1.5 1998-10-10 09:53:09 michael
  47. Added assertion handling
  48. Revision 1.4 1998/10/03 15:08:04 florian
  49. * EInvalidCast added (from runerror 219)
  50. Revision 1.3 1998/10/02 13:57:37 michael
  51. Format error now causes exception
  52. Revision 1.2 1998/10/02 13:00:09 michael
  53. + More RTL error handling
  54. Revision 1.1 1998/10/01 16:04:59 michael
  55. + Initial implementation
  56. }