获取或设置运行时错误号
用法
result = Err( )
or
Err = number
说明
Err()函数返回FreeBASIC运行时错误编号,可由内置语句和函数或程序通过
Err = number 或
Error设置。与
Error不同,
Err = number 设置错误编号而不调用错误处理程序。
有关预定义的运行时错误号及其相关含义的列表,请参阅
运行时错误代码.程序可能会使用额外的自定义错误编号。
始终可以使用
Err,即使没有启用类似QB的错误处理。
Err由
Resume和
Resume Next重置。
注意:在发生错误后调用内部函数(如
Print)时应注意,因为它会以自己的错误状态重置错误值。要保留
Err值,一旦输入错误处理程序,就将其存储在变量中是一个好主意。
例子
使用QBasic样式错误处理的示例(用-ex选项编译)
''用-lang fblite或qb编译
#lang "fblite"
On Error Goto Error_Handler
Error 150
End
Error_Handler:
n = Err()
Print "错误#"; n
Resume Next
使用内联错误处理(注意:
打开)的示例也可以在作为函数调用时返回自己的错误状态)
''编译没有-e开关
Dim filename As String
Do
Line Input "输入文件名:", filename
If filename = "" Then End
Open filename For Input As #1
Loop Until Err() = 0
Print Using "文件“&”已成功打开"; filename
Close #1
与QB差别
参考