Err
 
获取或设置运行时错误号

用法

result = Err( )
or
Err = number

说明

Err()函数返回FreeBASIC运行时错误编号,可由内置语句和函数或程序通过Err = number Error设置。与Error不同,Err = number 设置错误编号而不调用错误处理程序。

有关预定义的运行时错误号及其相关含义的列表,请参阅运行时错误代码.程序可能会使用额外的自定义错误编号。

始终可以使用Err,即使没有启用类似QB的错误处理。ErrResumeResume 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差别

  • 错误编号与QB不同。

参考