|
|
@@ -16,394 +16,175 @@
|
|
|
{$H+}
|
|
|
unit sysconst;
|
|
|
|
|
|
- interface
|
|
|
-
|
|
|
- resourcestring
|
|
|
- { from old str*.inc files }
|
|
|
- SAbortError = 'Operation aborted';
|
|
|
- SAbstractError = 'Abstract method called';
|
|
|
- SAccessDenied = 'Access denied';
|
|
|
- SAccessViolation = 'Access violation';
|
|
|
- SArgumentMissing = 'Missing argument in format "%s"';
|
|
|
- SAssertError = '%s (%s, line %d)';
|
|
|
- SAssertionFailed = 'Assertion failed';
|
|
|
- SControlC = 'Control-C hit';
|
|
|
- SDiskFull = 'Disk Full';
|
|
|
- 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';
|
|
|
- SFileNotFound = 'File not found';
|
|
|
- SFileNotOpen = 'File not open';
|
|
|
- SFileNotOpenForInput = 'File not open for input';
|
|
|
- SFileNotOpenForOutput = 'File not open for output';
|
|
|
- SInValidFileName = 'Invalid filename';
|
|
|
- SIntfCastError = 'Interface not supported';
|
|
|
- SIntOverflow = 'Arithmetic overflow';
|
|
|
- SInvalidArgIndex = 'Invalid argument index in format "%s"';
|
|
|
- SInvalidBoolean = '"%s" is not a valid boolean.';
|
|
|
- SInvalidCast = 'Invalid type cast';
|
|
|
- SInvalidDateTime = '%f is not a valid date/time value.';
|
|
|
- SInvalidDrive = 'Invalid drive specified';
|
|
|
- SInvalidFileHandle = 'Invalid file handle';
|
|
|
- SInvalidFloat = '"%s" is an invalid float';
|
|
|
- SInvalidFormat = 'Invalid format specifier : "%s"';
|
|
|
- SInvalidGUID = '"%s" is not a valid GUID value';
|
|
|
- SInvalidInput = 'Invalid input';
|
|
|
- SInvalidInteger = '"%s" is an invalid integer';
|
|
|
- SInvalidOp = 'Invalid floating point operation';
|
|
|
- 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';
|
|
|
- SPrivilege = 'Privileged instruction';
|
|
|
- SRangeError = 'Range check error';
|
|
|
- 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';
|
|
|
- SVarArrayCreate = 'Variant array cannot be created';
|
|
|
- SVarArrayLocked = 'Variant array locked';
|
|
|
- SVarNotArray = 'Variant doesn''t contain an array';
|
|
|
- SVarParamNotFound = 'Variant Parameter not found';
|
|
|
- SInvalidVarNullOp = 'Invalid NULL variant operation';
|
|
|
- SInvalidVarOpWithHResultWithPrefix = 'Invalid variant operation (%s%.8x)'+LineEnding+'%s';
|
|
|
- SVarTypeRangeCheck1 = 'Range check error for variant of type (%s)';
|
|
|
- SVarTypeRangeCheck2 = 'Range check error while converting variant of type (%s) into type (%s)';
|
|
|
- SVarTypeOutOfRangeWithPrefix = 'Custom variant type (%s%.4x) is out of range';
|
|
|
- SVarTypeAlreadyUsedWithPrefix = 'Custom variant type (%s%.4x) already used by %s';
|
|
|
- SVarTypeNotUsableWithPrefix = 'Custom variant type (%s%.4x) is not usable';
|
|
|
- SVarTypeTooManyCustom = 'Too many custom variant types have been registered';
|
|
|
- SVarTypeCouldNotConvert = 'Could not convert variant of type (%s) into type (%s)';
|
|
|
- SVarTypeConvertOverflow = 'Overflow while converting variant of type (%s) into type (%s)';
|
|
|
- SVarOverflow = 'Variant overflow';
|
|
|
- SVarInvalid = 'Invalid argument';
|
|
|
- SVarBadType = 'Invalid variant type';
|
|
|
- SVarNotImplemented = 'Operation not supported';
|
|
|
- SVarOutOfMemory = 'Variant operation ran out memory';
|
|
|
- SVarUnexpected = 'Unexpected variant error';
|
|
|
+interface
|
|
|
+
|
|
|
+resourcestring
|
|
|
+
|
|
|
+{ from old str*.inc files }
|
|
|
+
|
|
|
+ SAbortError = 'Operation aborted';
|
|
|
+ SAbstractError = 'Abstract method called';
|
|
|
+ SAccessDenied = 'Access denied';
|
|
|
+ SAccessViolation = 'Access violation';
|
|
|
+ SArgumentMissing = 'Missing argument in format "%s"';
|
|
|
+ SAssertError = '%s (%s, line %d)';
|
|
|
+ SAssertionFailed = 'Assertion failed';
|
|
|
+ SControlC = 'Control-C hit';
|
|
|
+ SDiskFull = 'Disk Full';
|
|
|
+ SDispatchError = 'No variant method call dispatch';
|
|
|
+ SDivByZero = 'Division by zero';
|
|
|
+ SEndOfFile = 'Read past end of file';
|
|
|
+ SExceptionErrorMessage = 'exception at %p';
|
|
|
+ SExceptionStack = 'Exception stack error';
|
|
|
+ SExternalException = 'External exception %x';
|
|
|
+ SFileNotAssigned = 'File not assigned';
|
|
|
+ SFileNotFound = 'File not found';
|
|
|
+ SFileNotOpen = 'File not open';
|
|
|
+ SFileNotOpenForInput = 'File not open for input';
|
|
|
+ SFileNotOpenForOutput = 'File not open for output';
|
|
|
+ SInValidFileName = 'Invalid filename';
|
|
|
+ SIntOverflow = 'Arithmetic overflow';
|
|
|
+ SIntfCastError = 'Interface not supported';
|
|
|
+ SInvalidArgIndex = 'Invalid argument index in format "%s"';
|
|
|
+ SInvalidBoolean = '"%s" is not a valid boolean.';
|
|
|
+ SInvalidCast = 'Invalid type cast';
|
|
|
+ SInvalidDateTime = '%f is not a valid date/time value.';
|
|
|
+ SInvalidDrive = 'Invalid drive specified';
|
|
|
+ SInvalidFileHandle = 'Invalid file handle';
|
|
|
+ SInvalidFloat = '"%s" is an invalid float';
|
|
|
+ SInvalidFormat = 'Invalid format specifier : "%s"';
|
|
|
+ SInvalidGUID = '"%s" is not a valid GUID value';
|
|
|
+ SInvalidInput = 'Invalid input';
|
|
|
+ SInvalidInteger = '"%s" is an invalid integer';
|
|
|
+ SInvalidOp = 'Invalid floating point operation';
|
|
|
+ SInvalidPointer = 'Invalid pointer operation';
|
|
|
+ SInvalidVarCast = 'Invalid variant type case';
|
|
|
+ SInvalidVarNullOp = 'Invalid NULL variant operation';
|
|
|
+ SInvalidVarOp = 'Invalid variant operation';
|
|
|
+ SInvalidVarOpWithHResultWithPrefix = 'Invalid variant operation (%s%.8x)'+LineEnding+'%s';
|
|
|
+ SNoError = 'No error.';
|
|
|
+ SNoThreadSupport = 'Threads not supported. Recompile program with thread driver.';
|
|
|
+ SOutOfMemory = 'Out of memory';
|
|
|
+ SOverflow = 'Floating point overflow';
|
|
|
+ SPrivilege = 'Privileged instruction';
|
|
|
+ SRangeError = 'Range check error';
|
|
|
+ SSafecallException = 'Exception in safecall method';
|
|
|
+ STooManyOpenFiles = 'Too many open files';
|
|
|
+ SUnKnownRunTimeError = 'Unknown Run-Time error : %3.3d';
|
|
|
+ SUnderflow = 'Floating point underflow';
|
|
|
+ SUnknown = 'Unknown run-time error code: ';
|
|
|
+ SUnknownErrorCode = 'Unknown error code: %d';
|
|
|
+ SVarArrayBounds = 'Variant array bounds error';
|
|
|
+ SVarArrayCreate = 'Variant array cannot be created';
|
|
|
+ SVarArrayLocked = 'Variant array locked';
|
|
|
+ SVarBadType = 'Invalid variant type';
|
|
|
+ SVarInvalid = 'Invalid argument';
|
|
|
+ SVarNotArray = 'Variant doesn''t contain an array';
|
|
|
+ SVarNotImplemented = 'Operation not supported';
|
|
|
+ SVarOutOfMemory = 'Variant operation ran out memory';
|
|
|
+ SVarOverflow = 'Variant overflow';
|
|
|
+ SVarParamNotFound = 'Variant Parameter not found';
|
|
|
+ SVarTypeAlreadyUsedWithPrefix = 'Custom variant type (%s%.4x) already used by %s';
|
|
|
+ SVarTypeConvertOverflow = 'Overflow while converting variant of type (%s) into type (%s)';
|
|
|
+ SVarTypeCouldNotConvert = 'Could not convert variant of type (%s) into type (%s)';
|
|
|
+ SVarTypeNotUsableWithPrefix = 'Custom variant type (%s%.4x) is not usable';
|
|
|
+ SVarTypeOutOfRangeWithPrefix = 'Custom variant type (%s%.4x) is out of range';
|
|
|
+ SVarTypeRangeCheck1 = 'Range check error for variant of type (%s)';
|
|
|
+ SVarTypeRangeCheck2 = 'Range check error while converting variant of type (%s) into type (%s)';
|
|
|
+ SVarTypeTooManyCustom = 'Too many custom variant types have been registered';
|
|
|
+ SVarUnexpected = 'Unexpected variant error';
|
|
|
|
|
|
- SShortMonthNameJan = 'Jan';
|
|
|
- SShortMonthNameFeb = 'Feb';
|
|
|
- SShortMonthNameMar = 'Mar';
|
|
|
- SShortMonthNameApr = 'Apr';
|
|
|
- SShortMonthNameMay = 'May';
|
|
|
- SShortMonthNameJun = 'Jun';
|
|
|
- SShortMonthNameJul = 'Jul';
|
|
|
- SShortMonthNameAug = 'Aug';
|
|
|
- SShortMonthNameSep = 'Sep';
|
|
|
- SShortMonthNameOct = 'Oct';
|
|
|
- SShortMonthNameNov = 'Nov';
|
|
|
- SShortMonthNameDec = 'Dec';
|
|
|
-
|
|
|
- SLongMonthNameJan = 'January';
|
|
|
- SLongMonthNameFeb = 'February';
|
|
|
- SLongMonthNameMar = 'March';
|
|
|
- SLongMonthNameApr = 'April';
|
|
|
- SLongMonthNameMay = 'May';
|
|
|
- SLongMonthNameJun = 'June';
|
|
|
- SLongMonthNameJul = 'July';
|
|
|
- SLongMonthNameAug = 'August';
|
|
|
- SLongMonthNameSep = 'September';
|
|
|
- SLongMonthNameOct = 'October';
|
|
|
- SLongMonthNameNov = 'November';
|
|
|
- SLongMonthNameDec = 'December';
|
|
|
-
|
|
|
- SShortDayNameMon = 'Mon';
|
|
|
- SShortDayNameTue = 'Tue';
|
|
|
- SShortDayNameWed = 'Wed';
|
|
|
- SShortDayNameThu = 'Thu';
|
|
|
- SShortDayNameFri = 'Fri';
|
|
|
- SShortDayNameSat = 'Sat';
|
|
|
- SShortDayNameSun = 'Sun';
|
|
|
-
|
|
|
- SLongDayNameMon = 'Monday';
|
|
|
- SLongDayNameTue = 'Tuesday';
|
|
|
- SLongDayNameWed = 'Wednesday';
|
|
|
- SLongDayNameThu = 'Thursday';
|
|
|
- SLongDayNameFri = 'Friday';
|
|
|
- SLongDayNameSat = 'Saturday';
|
|
|
- SLongDayNameSun = 'Sunday';
|
|
|
+ SShortMonthNameJan = 'Jan';
|
|
|
+ SShortMonthNameFeb = 'Feb';
|
|
|
+ SShortMonthNameMar = 'Mar';
|
|
|
+ SShortMonthNameApr = 'Apr';
|
|
|
+ SShortMonthNameMay = 'May';
|
|
|
+ SShortMonthNameJun = 'Jun';
|
|
|
+ SShortMonthNameJul = 'Jul';
|
|
|
+ SShortMonthNameAug = 'Aug';
|
|
|
+ SShortMonthNameSep = 'Sep';
|
|
|
+ SShortMonthNameOct = 'Oct';
|
|
|
+ SShortMonthNameNov = 'Nov';
|
|
|
+ SShortMonthNameDec = 'Dec';
|
|
|
+
|
|
|
+ SLongMonthNameJan = 'January';
|
|
|
+ SLongMonthNameFeb = 'February';
|
|
|
+ SLongMonthNameMar = 'March';
|
|
|
+ SLongMonthNameApr = 'April';
|
|
|
+ SLongMonthNameMay = 'May';
|
|
|
+ SLongMonthNameJun = 'June';
|
|
|
+ SLongMonthNameJul = 'July';
|
|
|
+ SLongMonthNameAug = 'August';
|
|
|
+ SLongMonthNameSep = 'September';
|
|
|
+ SLongMonthNameOct = 'October';
|
|
|
+ SLongMonthNameNov = 'November';
|
|
|
+ SLongMonthNameDec = 'December';
|
|
|
+
|
|
|
+ SShortDayNameMon = 'Mon';
|
|
|
+ SShortDayNameTue = 'Tue';
|
|
|
+ SShortDayNameWed = 'Wed';
|
|
|
+ SShortDayNameThu = 'Thu';
|
|
|
+ SShortDayNameFri = 'Fri';
|
|
|
+ SShortDayNameSat = 'Sat';
|
|
|
+ SShortDayNameSun = 'Sun';
|
|
|
+
|
|
|
+ SLongDayNameMon = 'Monday';
|
|
|
+ SLongDayNameTue = 'Tuesday';
|
|
|
+ SLongDayNameWed = 'Wednesday';
|
|
|
+ SLongDayNameThu = 'Thursday';
|
|
|
+ SLongDayNameFri = 'Friday';
|
|
|
+ SLongDayNameSat = 'Saturday';
|
|
|
+ SLongDayNameSun = 'Sunday';
|
|
|
|
|
|
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];
|
|
|
+ Case Errno Of
|
|
|
+ 0 : Result:=SNoError;
|
|
|
+ 1 : Result:=SOutOfMemory;
|
|
|
+ 2 : Result:=SFileNotFound;
|
|
|
+ 3 : Result:=SInvalidFileName;
|
|
|
+ 4 : Result:=STooManyOpenFiles;
|
|
|
+ 5 : Result:=SAccessDenied;
|
|
|
+ 6 : Result:=SInvalidFileHandle;
|
|
|
+ 15 : Result:=SInvalidDrive;
|
|
|
+ 100 : Result:=SEndOfFile;
|
|
|
+ 101 : Result:=SDiskFull;
|
|
|
+ 102 : Result:=SFileNotAssigned;
|
|
|
+ 103 : Result:=SFileNotOpen;
|
|
|
+ 104 : Result:=SFileNotOpenForInput;
|
|
|
+ 105 : Result:=SFileNotOpenForOutput;
|
|
|
+ 106 : Result:=SInvalidInput;
|
|
|
+ 200 : Result:=SDivByZero;
|
|
|
+ 201 : Result:=SRangeError;
|
|
|
+ 203 : Result:=SOutOfMemory;
|
|
|
+ 204 : Result:=SInvalidPointer;
|
|
|
+ 205 : Result:=SOverFlow;
|
|
|
+ 206 : Result:=SUnderFlow;
|
|
|
+ 207 : Result:=SInvalidOp;
|
|
|
+ 211 : Result:=SAbstractError;
|
|
|
+ 215 : Result:=SIntOverFlow;
|
|
|
+ 216 : Result:=SAccessViolation;
|
|
|
+ 217 : Result:=SPrivilege;
|
|
|
+ 218 : Result:=SControlC;
|
|
|
+ 219 : Result:=SInvalidCast;
|
|
|
+ 220 : Result:=SInvalidVarCast;
|
|
|
+ 221 : Result:=SInvalidVarOp;
|
|
|
+ 222 : Result:=SDispatchError;
|
|
|
+ 223 : Result:=SVarArrayCreate;
|
|
|
+ 224 : Result:=SVarNotArray;
|
|
|
+ 225 : Result:=SVarArrayBounds;
|
|
|
+ 227 : Result:=SAssertionFailed;
|
|
|
+ 228 : Result:=SExternalException;
|
|
|
+ 229 : Result:=SIntfCastError;
|
|
|
+ 230 : Result:=SSafecallException;
|
|
|
+ 231 : Result:=SExceptionStack;
|
|
|
+ 232 : Result:=SNoThreadSupport;
|
|
|
+ end;
|
|
|
If length(Result)=0 then
|
|
|
{$ifdef VER1_0}
|
|
|
begin
|
|
|
@@ -418,7 +199,10 @@ end;
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.5 2003-11-30 15:04:56 michael
|
|
|
+ Revision 1.6 2004-01-10 17:55:45 michael
|
|
|
+ + Changed lookup table with Case: Array of resourcestring is not translated
|
|
|
+
|
|
|
+ Revision 1.5 2003/11/30 15:04:56 michael
|
|
|
+ Removed old strings
|
|
|
|
|
|
Revision 1.4 2003/11/27 20:39:43 michael
|
michael