Declare Function Erfn ( ) As ZString Ptr

result = Erfn ( )

Возвращает указатель на строку, идентифицирующую функцию, где произошла ошибка.

Возвращает NULL, если исходник не компилируется с опцией компилятора -exx.

Функция отчета об ошибке, возвращающая указатель на имя функции, где произошла ошибка.

'' test.bas
'' компиляция: fbc -exx -lang fblite test.bas

#lang "fblite"

Sub Generate_Error
  On Error Goto Handler
  Error 1000
  Exit Sub
Handler:
  Print "Error Function: "; *Erfn()
  Print "Error Module  : "; *Ermn()
  Resume Next
End Sub

Generate_Error

Вывод:

Error Function: GENERATE_ERROR
Error Module  : test.bas

• Не доступна в диалекте -lang qb , но есть псевдоним __Erfn.
  
  

• Новое в FreeBASIC
  
  

• Erl
  
• Ermn
  
• On...Error