Possible for Procedure to return LIST?

[thanhmy]

I know it is possible to pass a LIST as parameter to a procedure.
But it is possible for a procedure to return a LIST?
How?

[Bisonte]

if you pass a List to the procedure through a parameter, you don't need to return it.
If you create a list inside a procedure, the only way is via memory.

Code: Select all

Structure s_mylist
  List MyList.s()
EndStructure

Procedure.i CreateList()
  
  Protected *p.s_myList = AllocateStructure(s_mylist)
  
  If Not *p : ProcedureReturn #Null : EndIf
  
  AddElement(*p\MyList())
  *p\MyList() = "Hello"
  AddElement(*p\MyList())
  *p\MyList() = "World"
  
  ProcedureReturn *p
  
EndProcedure

Define *p.s_mylist

*p = CreateList()

If *p
  ForEach *p\MyList()
    Debug *p\MyList()
  Next
EndIf

[Kwai chang caine]

Cool thanks BISONTE