PureBasic Forums - English

Code: Select all

;-TOP

Macro TruncList(_List_)
  NewList _List_#Destroy()
  SplitList(_List_#(), _List_#Destroy(), #True)
  FreeList(_List_#Destroy())
EndMacro


NewList A()
NewList B.s()

For i = 0 To 10
  AddElement(A())
  A() = i
Next i

For i = 100 To 110
  AddElement(B())
  B() = "Number " + i
Next i

SelectElement(A(), 5)
TruncList(A)

SelectElement(B(),6)
TruncList(b)

Debug " -- A() -- "
ForEach A()
  Debug A()
Next

Debug " -- B() -- "
ForEach B()
  Debug B()
Next

Code: Select all

NewList A.i()
For i = 0 To 99                 ; create 100 elements
  AddElement(A())
Next
Debug ListSize(A())             ; verify size

SelectElement(A(), 49)          ; select current element
;******************************************************************
While NextElement(A())          ;
  DeleteElement(A())            ; truncate list at current element
Wend                            ;
;******************************************************************
Debug ListSize(A())             ; verify truncated size

Code: Select all

Structure iList
   List i.i()
EndStructure

Procedure iListNew()
   Protected *this.iList = AllocateMemory(SizeOf(iList) )
   InitializeStructure(*this, iList)
   ProcedureReturn *this
EndProcedure

Procedure iListDel(*this.iList)
   ClearStructure(*this, iList)
   FreeMemory(*this)
EndProcedure

Procedure iListTruncate(*this.iList, n)
   Protected *garbage.iList = iListNew()
   SelectElement(*this\i(), n)
   SplitList(*this\i(), *garbage\i() )
   iListDel(*garbage)
EndProcedure

   Define *myList.iList = iListNew()
   
   With *myList
      For i = 0 To 10
         AddElement(\i() )
         \i() = i
      Next
   EndWith
   
   iListTruncate(*myList, 5)
   
   ForEach \i()
      Debug \i()
   Next
EndWith

Code: Select all

;-TOP

Macro TruncList(_List_, _Structure_=i)
  NewList _List_#Destroy._Structure_()
  SplitList(_List_#(), _List_#Destroy(), #True)
  FreeList(_List_#Destroy())
EndMacro

Structure udtData
  iVal.i
  sVal.s
EndStructure

NewList A.udtData()
NewList B.s()

For i = 0 To 10
  AddElement(A())
  A()\iVal = i
Next i

For i = 100 To 110
  AddElement(B())
  B() = "Number " + i
Next i

SelectElement(A(), 5)
TruncList(A, udtData)

SelectElement(B(),6)
TruncList(b, s)

Debug " -- A() -- "
ForEach A()
  Debug A()\iVal
Next

Debug " -- B() -- "
ForEach B()
  Debug B()
Next