PureBasic Forums - English

Code: Select all

Procedure fish( List test()=NewList )
EndProcedure

fish(#Null)

Code: Select all

Procedure fish( List test() )
	ClearList(test())
EndProcedure

Procedure fish()
	Protected NewList test()
EndProcedure

Code: Select all

Structure MyList
	List Test.i()
EndStructure

Procedure fish( *MyList.MyList = #Null )
	If *MyList
		ProcedureReturn ListSize(*MyList\Test())
	Else
		ProcedureReturn 0
	EndIf
EndProcedure

Define MyList.MyList
AddElement(MyList\Test())

Debug fish(MyList)
Debug fish(#Null)