home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / DP / Programmation / PureBasic_Demo / Examples / Sources / LinkedList.pb < prev    next >
Encoding:
Text File  |  1999-10-10  |  803 b   |  52 lines
  1. ;
  2. ; ***************************************
  3. ;
  4. ; Linked List example file for Pure Basic
  5. ;
  6. ;     © 1999 - Fantaisie Software -
  7. ;
  8. ; ***************************************
  9. ;
  10. ;
  11.  
  12. Structure MyList
  13.   Pad.w
  14.   Name.s
  15. EndStructure
  16.  
  17. NewList TestList.MyList()
  18.  
  19. AddElement(TestList())
  20. TestList()\Name = "Hello"
  21.  
  22. AddElement(TestList())
  23. TestList()\Name = "World"
  24.  
  25. AddElement(TestList())
  26. TestList()\Name = "CooooL"
  27.  
  28. FirstElement(TestList())
  29. KillElement (TestList())
  30.  
  31. ResetList   (TestList())
  32. FirstElement(TestList())
  33. LastElement (TestList())
  34.  
  35. AddElement(TestList())
  36. TestList()\Name = "I'm Here"
  37.  
  38. ResetList(TestList())
  39.  
  40. While NextElement(TestList())
  41.   NPrint(TestList()\Name)
  42. Wend
  43.  
  44. NewList Trial.s()
  45.  
  46. PrintNum(CountList(TestList())) : NPrint("")
  47.  
  48. FirstElement(TestList())
  49. PrintNum(ListIndex(Trial())) : NPrint("")
  50.  
  51. End
  52.