Keeping the current element wherever it moves too.
Adapted the help code a bit and it seems to work.
Code: Select all
NewList Numbers()
For k=0 To 10
AddElement(Numbers())
Numbers() = k
Next
SelectElement(Numbers(), 3)
*CurrentElement = @Numbers()
Debug ListIndex(Numbers())
Debug Numbers()
For iLoop = 0 To 10 ;10 is listsize(Numbers()) -1
SelectElement(Numbers(), Random(10,0))
*FirstElement = @Numbers()
SelectElement(Numbers(), Random(10,0))
*SecondElement = @Numbers()
SwapElements(Numbers(), *FirstElement, *SecondElement)
Next
Debug ""
iLoop = 0
ForEach Numbers()
If *CurrentElement = @Numbers()
Break
EndIf
iLoop = iLoop + 1
Next
SelectElement(Numbers(),iLoop);?????
Debug ListIndex(Numbers())
Debug Numbers()
Debug ""
ForEach Numbers()
Debug Numbers()
Next
Can anyone see a better way or any mistakes.