| [Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Check the result of an operation and raise exception if not OK.
Source position: variants.pp line 312
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 |