Sub SetList_In(ByVal list As Any Ptr,ByVal value As Integer32)
Устанавливает(изменяет) значение типа Integer32 (LONG) текущего элемента
list - хендл списка
value - новое значение
Windows , Linux
#Include "Linked_Lists.bi"
Sub PrintAllValue(list As Any Ptr)
FirstElement(List)
? GetList_B(List)
? GetList_D(List)
? GetList_In(List)
? GetList_Sh(List)
? GetList_L(List)
? GetList_S(List)
? " "
End Sub
Var list=NewList()
' add and set values in the 1 item of the list
AddElement_B(List,4)
SetList_D(List,5.0303726547462)
SetList_In(List,7654321)
SetList_SH(List,4479)
SetList_L(List,12345678900000)
SetList_S(List,"11111")
'print values
PrintAllValue(list)
' change values
FirstElement(List)
SetList_B(List,1)
SetList_D(List,8.88888888888888)
SetList_In(List,9999999)
SetList_Sh(List,5555)
SetList_L(List,22222222222222222)
SetList_S(List,"6666666")
'print values
PrintAllValue(list)
Sleep
4
5.0303726547462
7654321
4479
12345678900000
11111
1
8.88888888888888
9999999
5555
22222222222222222
6666666
Created with the Personal Edition of HelpNDoc: Free EPub and documentation generator