OpenEuphoria

Re: List with Quick Find?

• Posted by David Cuny <dcuny at LANSET.COM> Feb 06, 2001
• 377 views

I had written:

> procedure onChange_SearchText()


Ooops. This is *probably* better (but still untested):


procedure onChange_SearchText()
   sequence text

   -- get the new text value
   text = getText( SearchText )

   -- search the SortedList
   for i = 1 to getCount( SortedList ) do
      if match( text, getItem( SortedList, i ) = 1 then
         setIndex( SortedList, i )
         return
      end if
   end for

   -- no match
   setIndex( SortedList, 0 )

end procedure

-- David Cuny