エラーが発生した行を返す、エラー処理関数。
構文:
用法:
result = Erl
戻り値:
誤りが発生した、最後の行番号を含む、
Long の戻り値。
Erl は、誤りが発生した、最後の行番号を、返します。
誤りが発生しないと、Erl は、0 を返します。
いつもErl が、有効に使えるわけではありません。-- QB 風のエラー処理を、可能にしなければなりません。
Erl は、RESUME と RESUME NEXT によってリセットされます。
例:
' -lang fblite か qb で、コンパイルします。
#lang "fblite"
' 注意：
'-ex' オプションによる編集が必要です。
On Error Goto ErrorHandler
' 明白なエラーを発生させます
Error 100
End
ErrorHandler:
Dim num As Long = Err
Print
"行№ ";
Erl;
" で、エラー ";
num
Sleep
Resume Next
' 予想される出力は、下記です。
' 行№ 6 で、エラー 100
QBからの違い:
-
FreeBASIC は、ソースコードの行番号を返します。コードに振った、明示的な行番号の値は、無視します。
QB では、最後に遭遇した明示的な行番号を返しました。QB では、明示的な行番号が使用されていないとき、ゼロを返しました。
参照:
