Declare Function Erfn ( ) As ZString Ptr

result = Erfn ( )

返回指向发生错误的函数的字符串的指针。

如果源未使用-exx 编译器选项编译，则返回NULL。

一个错误报告功能，返回指向该函数名称的指针。

''test.bas
''用fbc -exx -lang fblite test.bas编译

#lang "fblite"

Sub Generate_Error
  On Error Goto Handler
  Error 1000
  Exit Sub
Handler:
  Print "错误功能："; *Erfn()
  Print "错误模块："; *Ermn()
  Resume Next
End Sub

Generate_Error

输出：

Error Function: GENERATE_ERROR
Error Module  : test.bas

• 在-lang qb 方言中不可用，除非使用别名__Erfn引用。
  
  

• 新的FreeBASIC
  
  

• Erl
  
• Ermn
  
• On...Error