PureBasic Forums - English

Code: Select all

CreateIterator(NumberOrPBAny.i, List())
*ElementData = IteratorNext(Number.i)
; or
IteratorNext(Number.i, @*ElementData) ; such that While IteratorNext(..., @*ElementData) is possible and there's no need for more lines.
ReleaseIterator(Number.i)

Code: Select all

ForEach [*ElementData[.Type] In] List()
  ; do something with *ElementData
Next

Code: Select all

EnableExplicit

Macro ForEachList(name, type, container)
  Define name.type
  ResetList(container)
  While NextElement(container)
    name = @container
EndMacro

Macro ForEachListNext(name, container)
    ChangeCurrentElement(container, name)
  Wend
EndMacro



NewList X.i()

AddElement(X()) : X() = 1
AddElement(X()) : X() = 2
AddElement(X()) : X() = 3


Debug "Classic ForEach cannot be nested easily (without storing current position) as you can see here:"

ForEach X()
  ForEach X()
    Debug X()
  Next
Next

Debug ""

Debug "ForEachList can be nested"

ForEachList(*X1, Integer, X())
  ForEachList(*X2, Integer, X())
    Debug *X2\i
  ForEachListNext(*X2, X())
ForEachListNext(*X1, X())

Code: Select all

Classic ForEach cannot be nested easily (without storing current position) as you can see here:
1
2
3

ForEachList can be nested
1
2
3
1
2
3
1
2
3

Code: Select all

ForEach X()
  Subroutine(X())
Next

Code: Select all

NewList X.i()

AddElement(X()) : X() = 1
AddElement(X()) : X() = 2
AddElement(X()) : X() = 3


Debug "Classic ForEach can be nested as you can see here:"

ForEach X()
	PushListPosition(X())
  ForEach X()
    Debug X()
  Next
  PopListPosition(X())
Next