I have a linkedlist created using a simple structure:
Code: Select all
Structure debitStructure
name.s
date.s
cost.s
EndStructure
NewList debitList.debitStructure()
Code: Select all
If OpenPreferences("debits.prefs")
PreferenceGroup("amount")
maxDebits = ReadPreferenceLong("number", 0)
For x=1 To maxDebits
PreferenceGroup("debit"+Str(x))
AddElement(debitList())
debitList()\name = ReadPreferenceString("name", "Error...")
debitList()\date = ReadPreferenceString("date", "Error...")
debitList()\cost = ReadPreferenceString("cost", "Error...")
Next
ClosePreferences()
EndIf
Code: Select all
Procedure updateListBox()
FirstElement(debitList())
For x=1 To maxDebits
rowString.s = debitList()\name+Chr(10)+addDateSuffix(debitList()\date)+Chr(10)+debitList()\cost+Chr(10)+updateDaysLeft(debitList()\date)
AddGadgetItem(#LIST_BOX, x, rowString)
NextElement(debitList())
Next
EndProcedure
thanks,
