Declare Function Erl ( ) As Integer

result = Erl

包含最后一个错误发生的行号的整数返回值。

Erl将返回最后一个错误发生的行号。如果没有发生错误，Erl将返回0。

Erl不能始终有效地使用 - 必须启用类似QB的错误处理。

Erl由RESUME和RESUME NEXT复位

'用-lang fblite或qb编译

#lang "fblite"

' note: compilation with '-ex'选项是必需的

On Error Goto ErrorHandler

'生成显式错误
Error 100

End

ErrorHandler:
  Dim num As Integer = Err
  Print "错误"; num; "在线"; Erl
  Resume Next

'预期产量是
'错误100在第6行

• FreeBASIC返回源代码行号并忽略所有显式行号的值，其中QB返回最后遇到的显式行号，并且当不使用显式行号时返回零（0）。
  
  

• 错误处理
  
• Err