Exceptions - Revision history

Menturi: /* Enumerated values */

2014-05-31T23:01:10Z

‎Enumerated values

Menturi: /* Enumerated values */

2014-05-31T22:59:11Z

‎Enumerated values

Menturi at 22:49, 31 May 2014

2014-05-31T22:49:47Z

Freeman: Created page with "

ExceptionType ExceptionParam ExceptionToString(ExceptionType, '$0')

12 T..."
2012-08-15T08:50:37Z

Created page with "<table> <tr style="font-weight: bold;"> <td>ExceptionType</td> <td>ExceptionParam</td> <td>ExceptionToString(ExceptionType, '$0')</td> </tr> <tr> <td>12</td> <td></td> <td>T..."

New page
<table>

<tr style="font-weight: bold;">
<td>ExceptionType</td>
<td>ExceptionParam</td>
<td>ExceptionToString(ExceptionType, '$0')</td>
</tr>

<tr>
<td>12</td>
<td></td>
<td>Type Mismatch</td>
<td>Bar {Type: variant} := Foo {Type: refer to [[Data Types]], equivalent for all provided}</td>
</tr>

<tr>
<td>15</td>
<td></td>
<td>divide by Zero</td>
<td>0 / 0;</td>
</tr>

<tr>
<td>20</td>
<td>'$1' is not a valid integer value</td>
<td>Exception: $0</td>
<td>StrtoInt('$1');</td>
</tr>

<tr>
<td>20</td>
<td>Nil interface</td>
<td>Exception: $0</td>
<td>IDispatchInvoke(Foo {Type: variant or IDispatch}, false {or true}, 'Name', ['Par1', 'Par2']);</td>
</tr>

<tr>
<td>20</td>
<td>Invalid array</td>
<td>Exception: $0</td>
<td>Bar {Type: variant} := Foo {Type: array[0..10] of string};</td>
</tr>

<tr>
<td>20</td>
<td>Could not convert variant of type (Null) into type (Integer)</td>
<td>Exception: $0</td>
<td>Bar {Type: smallint} := Null;</td>
</tr>

<tr>
<td>20</td>
<td>Could not convert variant of type (Null) into type (Int64)</td>
<td>Exception: $0</td>
<td>Bar {Type: boolean or byte} := Null;</td>
</tr>

</table>

<code type="pascal">
procedure ThrowException(const ExType: integer; const ExParam: string);
var
Vnt: variant;
begin
Vnt := ExType;
RaiseException(Vnt, ExParam);
end;

procedure ActivateServer();
var
i: byte;
Bar: variant;
begin
for i := 1 to 25 do begin
WriteLn('<--- ' + InttoStr(i) + ' --->');
try
ThrowException(i, 'p' + InttoStr(i));
except
Bar := ExceptionType;
WriteLn('ExceptionType=' + Bar);
WriteLn('ExceptionParam=' + ExceptionParam);
WriteLn('ExceptionToString(...)=' + ExceptionToString(ExceptionType, '$0'));
end;
end;
end;
</code>

Results:
<--- 1 --->
ExceptionType=1
ExceptionParam=p1
ExceptionToString(...)=Cannot Import $0
<--- 2 --->
ExceptionType=2
ExceptionParam=p2
ExceptionToString(...)=Invalid Type
<--- 3 --->
ExceptionType=3
ExceptionParam=p3
ExceptionToString(...)=Internal error
<--- 4 --->
ExceptionType=4
ExceptionParam=p4
ExceptionToString(...)=Invalid Header
<--- 5 --->
ExceptionType=5
ExceptionParam=p5
ExceptionToString(...)=Invalid Opcode
<--- 6 --->
ExceptionType=6
ExceptionParam=p6
ExceptionToString(...)=Invalid Opcode Parameter
<--- 7 --->
ExceptionType=7
ExceptionParam=p7
ExceptionToString(...)=no Main Proc
<--- 8 --->
ExceptionType=8
ExceptionParam=p8
ExceptionToString(...)=Out of Global Vars range
<--- 9 --->
ExceptionType=9
ExceptionParam=p9
ExceptionToString(...)=Out of Proc Range
<--- 10 --->
ExceptionType=10
ExceptionParam=p10
ExceptionToString(...)=Out Of Range
<--- 11 --->
ExceptionType=11
ExceptionParam=p11
ExceptionToString(...)=Out Of Stack Range
<--- 12 --->
ExceptionType=12
ExceptionParam=p12
ExceptionToString(...)=Type Mismatch
<--- 13 --->
ExceptionType=13
ExceptionParam=p13
ExceptionToString(...)=Unexpected End Of File
<--- 14 --->
ExceptionType=14
ExceptionParam=p14
ExceptionToString(...)=Version error
<--- 15 --->
ExceptionType=15
ExceptionParam=p15
ExceptionToString(...)=divide by Zero
<--- 16 --->
ExceptionType=16
ExceptionParam=p16
ExceptionToString(...)=Math error
<--- 17 --->
ExceptionType=17
ExceptionParam=p17
ExceptionToString(...)=Could not call proc ($0)
<--- 18 --->
ExceptionType=18
ExceptionParam=p18
ExceptionToString(...)=Out of Record Fields Range
<--- 19 --->
ExceptionType=19
ExceptionParam=p19
ExceptionToString(...)=Out Of Memory
<--- 20 --->
ExceptionType=20
ExceptionParam=p20
ExceptionToString(...)=Exception: $0
<--- 21 --->
ExceptionType=21
ExceptionParam=p21
ExceptionToString(...)=Null Pointer Exception
<--- 22 --->
ExceptionType=22
ExceptionParam=p22
ExceptionToString(...)=Null variant error
<--- 23 --->
ExceptionType=23
ExceptionParam=p23
ExceptionToString(...)=Interface not supported
<--- 24 --->
ExceptionType=24
ExceptionParam=p24
ExceptionToString(...)=$0
<--- 25 --->
ExceptionType=25
ExceptionParam=p25
ExceptionToString(...)=Unknown error
Same results for 26-255 as 25; 0 has no exception thrown

@@ Line 201: / Line 201: @@
 <li>ErCannotImport
 <li>ErInvalidType
-<li>ErInt<li>ErnalError
+<li>ErInternalError
 <li>ErInvalidHeader
 <li>ErInvalidOpcode

← Older revision		Revision as of 22:59, 31 May 2014
Line 195:		Line 195:
	TIFException = (ErNoError, erCannotImport, erInvalidType, ErInternalError, erInvalidHeader, erInvalidOpcode, erInvalidOpcodeParameter, erNoMainProc, erOutOfGlobalVarsRange, erOutOfProcRange, ErOutOfRange, erOutOfStackRange, ErTypeMismatch, erUnexpectedEof, erVersionError, ErDivideByZero, ErMathError,erCouldNotCallProc, erOutofRecordRange, erOutOfMemory, erException, erNullPointerException, erNullVariantError, erInterfaceNotSupported, erCustomError)		TIFException = (ErNoError, erCannotImport, erInvalidType, ErInternalError, erInvalidHeader, erInvalidOpcode, erInvalidOpcodeParameter, erNoMainProc, erOutOfGlobalVarsRange, erOutOfProcRange, ErOutOfRange, erOutOfStackRange, ErTypeMismatch, erUnexpectedEof, erVersionError, ErDivideByZero, ErMathError,erCouldNotCallProc, erOutofRecordRange, erOutOfMemory, erException, erNullPointerException, erNullVariantError, erInterfaceNotSupported, erCustomError)

−	~~Only a couple~~ of ~~these were tested~~, but ~~this seems to exist and match with~~ the first few ~~tests.~~	+	TIFException appears to be an enumeration of the following, with specified numeric equivalents. These should all be defined (but only the first few were tested):
		+
		+	<ol start="0">
		+	<li>ErNoError
		+	<li>ErCannotImport
		+	<li>ErInvalidType
		+	<li>ErInt<li>ErnalError
		+	<li>ErInvalidHeader
		+	<li>ErInvalidOpcode
		+	<li>ErInvalidOpcodeParameter
		+	<li>ErNoMainProc
		+	<li>ErOutOfGlobalVarsRange
		+	<li>ErOutOfProcRange
		+	<li>ErOutOfRange
		+	<li>ErOutOfStackRange
		+	<li>ErTypeMismatch
		+	<li>ErUnexpectedEof
		+	<li>ErVersionError
		+	<li>ErDivideByZero
		+	<li>ErMathError
		+	<li>ErCouldNotCallProc
		+	<li>ErOutofRecordRange
		+	<li>ErOutOfMemory
		+	<li>ErException
		+	<li>ErNullPointerException
		+	<li>ErNullVariantError
		+	<li>ErInterfaceNotSupported
		+	<li>ErCustomError
		+	</ol>

← Older revision		Revision as of 22:49, 31 May 2014
Line 188:		Line 188:
	ExceptionToString(...)=Unknown error		ExceptionToString(...)=Unknown error
	Same results for 26-255 as 25; 0 has no exception thrown		Same results for 26-255 as 25; 0 has no exception thrown
		+
		+	==Enumerated values==
		+
		+	http://www.be-precision.com/products/precision-builder/express/webhelp/en/topics/PSSyntax.htm
		+
		+	TIFException = (ErNoError, erCannotImport, erInvalidType, ErInternalError, erInvalidHeader, erInvalidOpcode, erInvalidOpcodeParameter, erNoMainProc, erOutOfGlobalVarsRange, erOutOfProcRange, ErOutOfRange, erOutOfStackRange, ErTypeMismatch, erUnexpectedEof, erVersionError, ErDivideByZero, ErMathError,erCouldNotCallProc, erOutofRecordRange, erOutOfMemory, erException, erNullPointerException, erNullVariantError, erInterfaceNotSupported, erCustomError)
		+
		+	Only a couple of these were tested, but this seems to exist and match with the first few tests.