Check the result of an operation and raise exception if not OK.
Source position: variants.pp line 319
procedure VarResultCheck( |
AResult: HRESULT |
); |
AResult: HRESULT; |
ASourceType: TVarType; |
ADestType: TVarType |
); |
AResult |
|
Result code to check. |
AResult |
|
Result code to check. |
ASourceType |
|
Source variant type. |
ADestType |
|
Destination variant type. |
VarResultCheck checks the result aResult. If it difers from VAR_OK then an appropriate exception is raised based on the error code. If a source and destination type ASourceType and aDestType are specified they are included in the error message.
|
Raise an EVariantOverflowError error. |
|
|
Raise an EVariantInvalidOpError error. |
|
|
Raise a EVariantInvalidOpError error. |
|
|
Raise an EVariantBadIndexError error. |
|
|
Raise an EVariantArrayLockedError error. |