; *************************************************
Procedure MySelectElement(List myList(), index)
FirstElement(myList())
ProcedureReturn SelectElement(myList(), index)
EndProcedure
Macro SelectElement(myList, myIndex)
MySelectElement(myList, myIndex) :
EndMacro
; *************************************************
NewList men()
For i = 0 To 30
AddElement(men())
Next
FirstElement(men())
DeleteElement(men())
If ListIndex(men()) = -1
SelectElement(men(), 1) ;<== as you reported, this one doesn't work.
EndIf
Debug ListIndex(men())
mo = men() ;no current element
PMV hat geschrieben:nach ein bischen rumspielen muss ich In_Go bestätigen, nach ListIndex()
und genügend Elementen funktioniert SelectElement() nicht mehr.