Someone might find these useful or know of a better way to do it. I find them useful...
' -----------------------------------------------------------------------------
' ccListIndex
' -----------------------------------------------------------------------------
Function ccListIndex%(list:TList, value:Object Var)
'Loop through a list and return the index of the matching object.
Local index = 0
For Local o:Object = EachIn list
If o = value Then Return index
index:+1
Next
'No match
Return -1
End Function
' -----------------------------------------------------------------------------
' ccListStringIndex
' -----------------------------------------------------------------------------
Function ccListStringIndex%(list:TList, s$)
'Loop through a string list and return the index of the matching string.
Local index = 0
For Local o:Object = EachIn list
If String(o) = s Then Return index
index:+1
Next
'No match
Return -1
End Function
|