ПОИСК В LISTBOX DELPHI

Компонент listbox в Delphi представляет собой список, который включает в себя элементы, которые могут быть выбраны пользователем. Нередко возникает необходимость осуществить поиск по этому списку. Для этого можно использовать специальную функцию FindString. Функция принимает на вход строку, по которой будет осуществлен поиск, и флаг, указывающий направление поиска. Если флаг установлен в False, то поиск будет осуществляться сверху вниз. Если установлен в True, то поиск будет осуществляться снизу вверх.

var
Index: Integer;
begin
Index := ListBox1.FindString('', -1);
while Index <> -1 do begin
if (Pos('search_string', ListBox1.Items[Index]) = 1) then begin
ListBox1.ItemIndex := Index;
Break;
end;
Index := ListBox1.FindString('', Index - 1);
end;
end;


В этом примере мы создали переменную Index и начали поиск с последней строки списка, используя функцию FindString со вторым параметром, равным -1. Затем мы проверяем, соответствует ли текущий элемент искомой строке, используя функцию Pos. Если строка найдена, мы устанавливаем свойство ItemIndex списка в найденный индекс и выходим из цикла, используя оператор Break. Если строка не найдена, мы продолжаем поиск с помощью функции FindString, используя текущий индекс в качестве второго параметра. Если список не содержит искомой строки, Listbox.SelectedItem будет содержать Nil.

Rad Studio Delphi 007 ListBox - 002 Index Items

Delphi Programming Tutorials #4 Listboxes

Display Search Results in a ListBox - Excel VBA

List Box component in Delphi

how to add items to listbox in delphi

Пишем живой поиск в ListBox (Delphi)

Embarcadero Delphi 2010: How to add text/items to a list box

Delphi - ListBox - (Add - Delete - Clear)