ERL

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgErl
• 最后更新: 2022-03-25

---

返回发生错误所在行号的错误处理函数

语法

declare function Erl ( ) as long

用法

result = Erl

返回值

long 类型的返回值，包含最近一次错误发生的行号。

说明

Erl 返回最近一次错误发生的行号。若没有发生过错误，Erl 返回 0。

Erl 并非始终能有效使用——必须启用类似 QB 的错误处理才行。

Erl 会在 RESUME 和 RESUME NEXT 时被重置。

示例

start GeSHi

' compile with -lang fblite or qb

#lang "fblite"

' note: compilation with '-ex' option is required

On Error Goto ErrorHandler

' Generate an explicit error
Error 100

End

ErrorHandler:
  Dim num As Long = Err
  Print "Error "; num; " on line "; Erl
  Resume Next

' Expected output is
' Error  100 on line  6

end GeSHi

与 QB 的区别

• FreeBASIC 返回源代码行号，忽略所有显式行号的值；而 QB 返回最后遇到的显式行号，不使用显式行号时返回零 (0)。

另请参阅

• 错误处理
• Err

返回 目录