Code: Select all
Procedure proc(p1, p2, Array a.l(1) = #null)
if a
;do something
endif
endprocedure
Code: Select all
Procedure proc(p1, p2, Array a.l(1) = #null)
if a
;do something
endif
endprocedure
Code: Select all
Structure ListIntRef
List ref.i()
EndStructure
a.ListIntRef
AddElement(a\ref())
a\ref()=1
AddElement(a\ref())
a\ref()=2
AddElement(a\ref())
a\ref()=3
Procedure OptionalList(*SomeList.ListIntRef=#Null)
If *SomeList
ForEach *SomeList\ref()
Debug *SomeList\ref()
Next
EndIf
EndProcedure
OptionalList(@a)
OptionalList()
Code: Select all
EnableExplicit
Structure VECTOR_LONG
Item.l[0]
EndStructure
Procedure test(*a.VECTOR_LONG = #Null)
If *a
Debug *a\Item[0]
*a\Item[1] = 100
EndIf
EndProcedure
Dim a.l(1)
a(0) = 10
a(1) = 20
test(@a())
Debug a(1)