Declare Function Ermn ( ) As ZString Ptr

result = Ermn ( )

返回指向发生错误的模块的字符串的指针。

如果源未使用-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 方言中不可用，除非使用别名__Ermn引用。
  
  

• 新的FreeBASIC
  
  

• Erfn
  
• Erl
  
• On...Error