Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim RetVal as RetType
- try
- ...
- if ... then
- RetVal = RetType.FailedParse
- end try
- endif
- ...
- finally
- select case RetVal
- case ...
- UserStr = ...
- end select
- end try
- return RetVal
- SomeType result = default(SomeType); // for "definite assignment"
- try {
- // ...
- return result;
- }
- finally {
- // inspect "result"
- }
- Public Function MyFunc() as integer
- Try
- if DoSomething() = FAIL Then
- return FAIL
- end if
- Finally
- if MyFunc = FAIL then
- Me.ErrorMsg = "failed"
- endif
- End Try
- End Function
- if MyFunc = FAIL Then
- if MyFunc() = FAIL Then
Add Comment
Please, Sign In to add comment