mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 11:49:30 +02:00
+ Changed lookup table with Case: Array of resourcestring is not translated
This commit is contained in:
michael
parent
a1d8f29196
commit
ea7ed753c8
@ -16,394 +16,175 @@
|
||||
{$H+}
|
||||
unit sysconst;
|
||||
|
||||
interface
|
||||
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';
|
||||
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';
|
||||
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';
|
||||
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';
|
||||
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';
|
||||
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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user