|
|
@@ -32,6 +32,7 @@ unit sysconst;
|
|
|
SDispatchError = 'No variant method call dispatch';
|
|
|
SDivByZero = 'Division by zero';
|
|
|
SEndOfFile = 'Read past end of file';
|
|
|
+ SExceptionStack = 'Exception stack error';
|
|
|
SExceptionErrorMessage = 'exception at %p';
|
|
|
SExternalException = 'External exception %x';
|
|
|
SFileNotAssigned = 'File not assigned';
|
|
|
@@ -57,6 +58,7 @@ unit sysconst;
|
|
|
SInvalidPointer = 'Invalid pointer operation';
|
|
|
SInvalidVarCast = 'Invalid variant type case';
|
|
|
SInvalidVarOp = 'Invalid variant operation';
|
|
|
+ SNoError = 'No error.';
|
|
|
SNoThreadSupport = 'Threads not supported. Recompile program with thread driver.';
|
|
|
SOutOfMemory = 'Out of memory';
|
|
|
SOverflow = 'Floating point overflow';
|
|
|
@@ -65,6 +67,7 @@ unit sysconst;
|
|
|
SSafecallException = 'Exception in safecall method';
|
|
|
STooManyOpenFiles = 'Too many open files';
|
|
|
SUnKnownRunTimeError = 'Unknown Run-Time error : %3.3d';
|
|
|
+ SUnknown = 'Unknown run-time error code: ';
|
|
|
SUnderflow = 'Floating point underflow';
|
|
|
SUnknownErrorCode = 'Unknown error code: %d';
|
|
|
SVarArrayBounds = 'Variant array bounds error';
|
|
|
@@ -131,12 +134,338 @@ unit sysconst;
|
|
|
SLongDayNameSat = 'Saturday';
|
|
|
SLongDayNameSun = 'Sunday';
|
|
|
|
|
|
- implementation
|
|
|
+{
|
|
|
+Resourcestring
|
|
|
+ RunOutOfMemory = 'Runtime error 1';
|
|
|
+ RunAbort = 'Operation aborted';
|
|
|
+ RunAbstractError = 'Abstract method called';
|
|
|
+ RunAccessDenied = 'Access denied';
|
|
|
+ RunAccessViolation = 'Access violation';
|
|
|
+ RunAssertError = '%s (%s, line %d)';
|
|
|
+ RunAssertionFailed = 'Assertion failed';
|
|
|
+ RunControlC = 'Control-C hit';
|
|
|
+ RunDiskFull = 'Disk Full';
|
|
|
+ RunDispatchError = 'No variant method call dispatch';
|
|
|
+ RunDivByZero = 'Division by zero';
|
|
|
+ RunEndOfFile = 'Read past end of file';
|
|
|
+ RunExternalException = 'External exception.';
|
|
|
+ RunFileNotAssigned = 'File not assigned';
|
|
|
+ RunFileNotFound = 'File not found';
|
|
|
+ RunFileNotOpen = 'File not open';
|
|
|
+ RunFileNotOpenForInput = 'File not open for input';
|
|
|
+ RunFileNotOpenForOutput = 'File not open for output';
|
|
|
+ RunInValidFileName = 'Invalid filename';
|
|
|
+ RunIntfCastError = 'Interface not supported';
|
|
|
+ RunIntOverflow = 'Arithmetic overflow';
|
|
|
+ RunInvalidCast = 'Invalid type cast';
|
|
|
+ RunInvalidDrive = 'Invalid drive specified';
|
|
|
+ RunInvalidFileHandle = 'Invalid file handle';
|
|
|
+ RunInvalidInput = 'Invalid input';
|
|
|
+ RunInvalidOp = 'Invalid floating point operation';
|
|
|
+ RunInvalidPointer = 'Invalid pointer operation';
|
|
|
+ RunInvalidVarCast = 'Invalid variant type case';
|
|
|
+ RunInvalidVarOp = 'Invalid variant operation';
|
|
|
+ RunOverflow = 'Floating point overflow';
|
|
|
+ RunPrivilege = 'Privileged instruction';
|
|
|
+ RunRangeError = 'Range check error';
|
|
|
+ RunSafecallException = 'Exception in safecall method';
|
|
|
+ RunTooManyOpenFiles = 'Too many open files';
|
|
|
+ RunUnderflow = 'Floating point underflow';
|
|
|
+ RunUnknown = 'Unknown run-time error code: ';
|
|
|
+ RunVarArrayBounds = 'Variant array bounds error';
|
|
|
+ RunVarArrayCreate = 'Variant array cannot be created';
|
|
|
+ RunVarNotArray = 'Variant doesn''t contain an array';
|
|
|
+ RunExceptionStack = 'Exception stack error';
|
|
|
+ RunThreadsNotSupported = 'Threading not supported by this binary. Recompile with thread driver.';
|
|
|
+}
|
|
|
+Function GetRunError(Errno : Byte) : String;
|
|
|
+
|
|
|
+Implementation
|
|
|
+
|
|
|
+Const
|
|
|
+ RunErrorArray : Array[0..255] of string = (
|
|
|
+ { 0 } SNoError,
|
|
|
+ { 1 } SOutOfMemory,
|
|
|
+ { 2 } SFileNotFound,
|
|
|
+ { 3 } SInvalidFileName,
|
|
|
+ { 4 } STooManyOpenFiles,
|
|
|
+ { 5 } SAccessDenied,
|
|
|
+ { 6 } SInvalidFileHandle,
|
|
|
+ { 7 } '',
|
|
|
+ { 8 } '',
|
|
|
+ { 9 } '',
|
|
|
+ { 10 } '',
|
|
|
+ { 11 } '',
|
|
|
+ { 12 } '',
|
|
|
+ { 13 } '',
|
|
|
+ { 14 } '',
|
|
|
+ { 15 } SInvalidDrive,
|
|
|
+ { 16 } '',
|
|
|
+ { 17 } '',
|
|
|
+ { 18 } '',
|
|
|
+ { 19 } '',
|
|
|
+ { 20 } '',
|
|
|
+ { 21 } '',
|
|
|
+ { 22 } '',
|
|
|
+ { 23 } '',
|
|
|
+ { 24 } '',
|
|
|
+ { 25 } '',
|
|
|
+ { 26 } '',
|
|
|
+ { 27 } '',
|
|
|
+ { 28 } '',
|
|
|
+ { 29 } '',
|
|
|
+ { 30 } '',
|
|
|
+ { 31 } '',
|
|
|
+ { 32 } '',
|
|
|
+ { 33 } '',
|
|
|
+ { 34 } '',
|
|
|
+ { 35 } '',
|
|
|
+ { 36 } '',
|
|
|
+ { 37 } '',
|
|
|
+ { 38 } '',
|
|
|
+ { 39 } '',
|
|
|
+ { 40 } '',
|
|
|
+ { 41 } '',
|
|
|
+ { 42 } '',
|
|
|
+ { 43 } '',
|
|
|
+ { 44 } '',
|
|
|
+ { 45 } '',
|
|
|
+ { 46 } '',
|
|
|
+ { 47 } '',
|
|
|
+ { 48 } '',
|
|
|
+ { 49 } '',
|
|
|
+ { 50 } '',
|
|
|
+ { 51 } '',
|
|
|
+ { 52 } '',
|
|
|
+ { 53 } '',
|
|
|
+ { 54 } '',
|
|
|
+ { 55 } '',
|
|
|
+ { 56 } '',
|
|
|
+ { 57 } '',
|
|
|
+ { 58 } '',
|
|
|
+ { 59 } '',
|
|
|
+ { 60 } '',
|
|
|
+ { 61 } '',
|
|
|
+ { 62 } '',
|
|
|
+ { 63 } '',
|
|
|
+ { 64 } '',
|
|
|
+ { 65 } '',
|
|
|
+ { 66 } '',
|
|
|
+ { 67 } '',
|
|
|
+ { 68 } '',
|
|
|
+ { 69 } '',
|
|
|
+ { 70 } '',
|
|
|
+ { 71 } '',
|
|
|
+ { 72 } '',
|
|
|
+ { 73 } '',
|
|
|
+ { 74 } '',
|
|
|
+ { 75 } '',
|
|
|
+ { 76 } '',
|
|
|
+ { 77 } '',
|
|
|
+ { 78 } '',
|
|
|
+ { 79 } '',
|
|
|
+ { 80 } '',
|
|
|
+ { 81 } '',
|
|
|
+ { 82 } '',
|
|
|
+ { 83 } '',
|
|
|
+ { 84 } '',
|
|
|
+ { 85 } '',
|
|
|
+ { 86 } '',
|
|
|
+ { 87 } '',
|
|
|
+ { 88 } '',
|
|
|
+ { 89 } '',
|
|
|
+ { 90 } '',
|
|
|
+ { 91 } '',
|
|
|
+ { 92 } '',
|
|
|
+ { 93 } '',
|
|
|
+ { 94 } '',
|
|
|
+ { 95 } '',
|
|
|
+ { 96 } '',
|
|
|
+ { 97 } '',
|
|
|
+ { 98 } '',
|
|
|
+ { 99 } '',
|
|
|
+ { 100 } SEndOfFile,
|
|
|
+ { 101 } SDiskFull,
|
|
|
+ { 102 } SFileNotAssigned,
|
|
|
+ { 103 } SFileNotOpen,
|
|
|
+ { 104 } SFileNotOpenForInput,
|
|
|
+ { 105 } SFileNotOpenForOutput,
|
|
|
+ { 106 } SInvalidInput,
|
|
|
+ { 107 } '',
|
|
|
+ { 108 } '',
|
|
|
+ { 109 } '',
|
|
|
+ { 110 } '',
|
|
|
+ { 111 } '',
|
|
|
+ { 112 } '',
|
|
|
+ { 113 } '',
|
|
|
+ { 114 } '',
|
|
|
+ { 115 } '',
|
|
|
+ { 116 } '',
|
|
|
+ { 117 } '',
|
|
|
+ { 118 } '',
|
|
|
+ { 119 } '',
|
|
|
+ { 120 } '',
|
|
|
+ { 121 } '',
|
|
|
+ { 122 } '',
|
|
|
+ { 123 } '',
|
|
|
+ { 124 } '',
|
|
|
+ { 125 } '',
|
|
|
+ { 126 } '',
|
|
|
+ { 127 } '',
|
|
|
+ { 128 } '',
|
|
|
+ { 129 } '',
|
|
|
+ { 130 } '',
|
|
|
+ { 131 } '',
|
|
|
+ { 132 } '',
|
|
|
+ { 133 } '',
|
|
|
+ { 134 } '',
|
|
|
+ { 135 } '',
|
|
|
+ { 136 } '',
|
|
|
+ { 137 } '',
|
|
|
+ { 138 } '',
|
|
|
+ { 139 } '',
|
|
|
+ { 140 } '',
|
|
|
+ { 141 } '',
|
|
|
+ { 142 } '',
|
|
|
+ { 143 } '',
|
|
|
+ { 144 } '',
|
|
|
+ { 145 } '',
|
|
|
+ { 146 } '',
|
|
|
+ { 147 } '',
|
|
|
+ { 148 } '',
|
|
|
+ { 149 } '',
|
|
|
+ { 150 } '',
|
|
|
+ { 151 } '',
|
|
|
+ { 152 } '',
|
|
|
+ { 153 } '',
|
|
|
+ { 154 } '',
|
|
|
+ { 155 } '',
|
|
|
+ { 156 } '',
|
|
|
+ { 157 } '',
|
|
|
+ { 158 } '',
|
|
|
+ { 159 } '',
|
|
|
+ { 160 } '',
|
|
|
+ { 161 } '',
|
|
|
+ { 162 } '',
|
|
|
+ { 163 } '',
|
|
|
+ { 164 } '',
|
|
|
+ { 165 } '',
|
|
|
+ { 166 } '',
|
|
|
+ { 167 } '',
|
|
|
+ { 168 } '',
|
|
|
+ { 169 } '',
|
|
|
+ { 170 } '',
|
|
|
+ { 171 } '',
|
|
|
+ { 172 } '',
|
|
|
+ { 173 } '',
|
|
|
+ { 174 } '',
|
|
|
+ { 175 } '',
|
|
|
+ { 176 } '',
|
|
|
+ { 177 } '',
|
|
|
+ { 178 } '',
|
|
|
+ { 179 } '',
|
|
|
+ { 180 } '',
|
|
|
+ { 181 } '',
|
|
|
+ { 182 } '',
|
|
|
+ { 183 } '',
|
|
|
+ { 184 } '',
|
|
|
+ { 185 } '',
|
|
|
+ { 186 } '',
|
|
|
+ { 187 } '',
|
|
|
+ { 188 } '',
|
|
|
+ { 189 } '',
|
|
|
+ { 190 } '',
|
|
|
+ { 191 } '',
|
|
|
+ { 192 } '',
|
|
|
+ { 193 } '',
|
|
|
+ { 194 } '',
|
|
|
+ { 195 } '',
|
|
|
+ { 196 } '',
|
|
|
+ { 197 } '',
|
|
|
+ { 198 } '',
|
|
|
+ { 199 } '',
|
|
|
+ { 200 } SDivByZero,
|
|
|
+ { 201 } SRangeError,
|
|
|
+ { 202 } '',
|
|
|
+ { 203 } SOutOfMemory,
|
|
|
+ { 204 } SInvalidPointer,
|
|
|
+ { 205 } SOverFlow,
|
|
|
+ { 206 } SUnderFlow,
|
|
|
+ { 207 } SInvalidOp,
|
|
|
+ { 208 } '',
|
|
|
+ { 209 } '',
|
|
|
+ { 210 } '',
|
|
|
+ { 211 } SAbstractError,
|
|
|
+ { 212 } '',
|
|
|
+ { 213 } '',
|
|
|
+ { 214 } '',
|
|
|
+ { 215 } SIntOverFlow,
|
|
|
+ { 216 } SAccessViolation,
|
|
|
+ { 217 } SPrivilege,
|
|
|
+ { 218 } SControlC,
|
|
|
+ { 219 } SInvalidCast,
|
|
|
+ { 220 } SInvalidVarCast,
|
|
|
+ { 221 } SInvalidVarOp,
|
|
|
+ { 222 } SDispatchError,
|
|
|
+ { 223 } SVarArrayCreate,
|
|
|
+ { 224 } SVarNotArray,
|
|
|
+ { 225 } SVarArrayBounds,
|
|
|
+ { 226 } '',
|
|
|
+ { 227 } SAssertionFailed,
|
|
|
+ { 228 } SExternalException,
|
|
|
+ { 229 } SIntfCastError,
|
|
|
+ { 230 } SSafecallException,
|
|
|
+ { 231 } SExceptionStack,
|
|
|
+ { 232 } SNoThreadSupport,
|
|
|
+ { 233 } '',
|
|
|
+ { 234 } '',
|
|
|
+ { 235 } '',
|
|
|
+ { 236 } '',
|
|
|
+ { 237 } '',
|
|
|
+ { 238 } '',
|
|
|
+ { 239 } '',
|
|
|
+ { 240 } '',
|
|
|
+ { 241 } '',
|
|
|
+ { 242 } '',
|
|
|
+ { 243 } '',
|
|
|
+ { 244 } '',
|
|
|
+ { 245 } '',
|
|
|
+ { 246 } '',
|
|
|
+ { 247 } '',
|
|
|
+ { 248 } '',
|
|
|
+ { 249 } '',
|
|
|
+ { 250 } '',
|
|
|
+ { 251 } '',
|
|
|
+ { 252 } '',
|
|
|
+ { 253 } '',
|
|
|
+ { 254 } '',
|
|
|
+ { 255 } ''
|
|
|
+ );
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+Function GetRunError(Errno : Byte) : String;
|
|
|
+
|
|
|
+begin
|
|
|
+ Result:=RunErrorArray[Errno];
|
|
|
+ If length(Result)=0 then
|
|
|
+{$ifdef VER1_0}
|
|
|
+ begin
|
|
|
+ Str(Errno:3,Result);
|
|
|
+ Result:=SUnknown+Result;
|
|
|
+ end;
|
|
|
+{$else}
|
|
|
+ Result:=SUnknown+Str(Errno:3);
|
|
|
+{$endif}
|
|
|
+end;
|
|
|
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.3 2003-11-26 20:34:19 michael
|
|
|
+ Revision 1.4 2003-11-27 20:39:43 michael
|
|
|
+ + Added runerrors functionality to sysconst
|
|
|
+
|
|
|
+ Revision 1.3 2003/11/26 20:34:19 michael
|
|
|
+ Some fixes to have everything compile again
|
|
|
|
|
|
Revision 1.2 2003/11/26 20:00:19 florian
|
michael