Functions._Break 方法 |
命名空间: XSharp.RT
1FUNCTION Start() 2 // 声明 "Export Local" 以提高代码块效率 3 LOCAL cbSaveHandler 4 LOCAL oError 5 // 设置您自己的错误块。 6 // 如果发生错误,您的错误块将调用 BREAK, 7 // 使您跳转到 RECOVER 行。 8 cbSaveHandler := ErrorBlock({|x| _Break(x)}) 9 BEGIN SEQUENCE 10 USE myfile 11 // 如果此处发生错误,将执行安装的代码块, 12 // 其中的 _Break() 会使您跳转到 RECOVER 语句之后的行 13 RECOVER USING oError 14 // 只有在发生调用安装的错误处理程序的错误时, 15 // 您才会通过 _Break() 到达这里 16 ? "打开文件时出错" 17 InKey(0) 18 QUIT // 注意 19 END 20 // 恢复默认错误处理程序 21 ErrorBlock(cbSaveHandler)