Code: Select all
EnableExplicit
Structure MyStruc
Int1.i
Int2.i
EndStructure
NewList ValueList.MyStruc()
NewList *PointerList.MyStruc()
AddElement (ValueList()) : ValueList()\Int1 = 11 : ValueList()\Int2 = 21
AddElement (ValueList()) : ValueList()\Int1 = 12 : ValueList()\Int2 = 22
AddElement (ValueList()) : ValueList()\Int1 = 13 : ValueList()\Int2 = 23
AddElement (ValueList()) : ValueList()\Int1 = 14 : ValueList()\Int2 = 24
AddElement (ValueList()) : ValueList()\Int1 = 15 : ValueList()\Int2 = 25
ForEach ValueList()
AddElement (*PointerList())
*PointerList() = @ValueList()
Next
SortStructuredList (ValueList() , #PB_Sort_Descending, OffsetOf (MyStruc\Int1), TypeOf (MyStruc\Int1))
SortStructuredList (*PointerList(), #PB_Sort_Descending, OffsetOf (MyStruc\Int1), TypeOf (MyStruc\Int1))