Option ByVal

Option ByVal - заявление, которое задает по умолчанию конвенцию для передачи параметров в процедуру по значению, как если бы объявление было с помощью ByVal. Это значение по умолчанию остается в силе в течение остальной части модуля, в котором используется Option ByVal, и может быть отменено, указанием ByRef в списке параметров.

'' компилировать с опцией компилятора "-lang fblite"

#lang "fblite"

Sub TestDefaultByref( a As Integer )
  '' change the value
  a = a * 2
End Sub

Option ByVal

Sub TestDefaultByval( a As Integer )
  a = a * 2
End Sub

Dim a As Integer = 1

Print "a = "; a
TestDefaultByref( a )
Print "After TestDefaultByref : a = "; a
Print

Print "a = "; a
TestDefaultByval( a )
Print "After TestDefaultByval : a = "; a
Print

• Доступно только в диалектах -lang fblite и -lang qb.
  
  

• Новое в FreeBASIC
  
  

• __FB_OPTION_BYVAL__