Is it possible to use a tlist with direct access to an index.
Somethink like this:
GadgetItemText$( gadget:TGadget,index )
GetListValue$(list:tlist,index)
Somethink like this:
GadgetItemText$( gadget:TGadget,index )
GetListValue$(list:tlist,index)
Function SetValueAtIndex(list:TList, index:Int, value:Object) Assert index>=0 Else "Object index must be positive" Local link:TLink=list._head._succ While link<>_head If Not index link._value = value ; Return link=link._succ index:-1 Wend RuntimeError "List index out of range" End Function