Delphi. Делаем простой инкрементальный поиск

Пусть на ListView выведены данные. Сделаем простой инкрементальный поиск…

45

46

Данные будем брать из ListView. Алгоритм поиска самый простой — перебор, при желании и обилия большого числа данных его легко можно заменить, скажем на бинарный поиск. Сначала результаты поиска сохраним в отдельном списке, и далее будем проматывать по мере нажатия кнопки далее, показывая результаты. 

Кнопка поиска. Код приведенный ниже, ищет первое совпадение и проматывает до него в ListView. Совпадение будем хранить в переменной класса

 

Кнопка перехода к следующему результату поиска

Кнопка перехода к предыдущему результату поиска

 

Добавить комментарий