Sub MoveElement(ByVal list As Any Ptr,ByVal from As Uinteger32, byval in As Uinteger32)
Позволяет перемещать элементы в любое место списка
list - хендл списка
from - номер элемента откуда перемещать
in - номер элемента куда перемещать
Windows , Linux
#Include "Linked_Lists.bi"
'Создаем новый список
Var list=NewList()
' добавляем элементы списка
For a As Byte=1 To 8
AddElement_S(List,Str(a))
Next
MoveElement(List,5,8)
InsertElement_S(list,8,"9")
firstElement(List)
Do
print GetList_S(List)
Loop Until nextElement(List)=0
Sleep
1
2
3
4
6
7
8
9
5
Created with the Personal Edition of HelpNDoc: Produce electonic books easily