поиск в ListBox

[Миледи]

помогите доработать программу она ищет значение в listbox но только когда находит дальше невозможно продолжить поиск поиск аналогичных значений.. я не понимаю как сделать это

[3D Hunter]

Исправил, пользуйтесь:
Search_text_in_ListBox_FIXED.rar

[antikiler_]

Я бы сделал так

procedure TMainForm.Edit1Change(Sender: TObject);
begin
ListBox1.Selected[ListBox1.ItemIndex]:= false;
if ListBox1.Items.IndexOf(Edit1.text)  <> -1 then
ListBox1.Selected[ListBox1.Items.IndexOf(Edit1.text)]:= true
end;

Просто и быстро....

[Умагаджи]

Сообщение от antikiler_

Я бы сделал так

procedure TMainForm.Edit1Change(Sender: TObject);
begin
ListBox1.Selected[ListBox1.ItemIndex]:= false;
if ListBox1.Items.IndexOf(Edit1.text)  <> -1 then
ListBox1.Selected[ListBox1.Items.IndexOf(Edit1.text)]:= true
end;

Просто и быстро....

Так как Вы сделали не то.. он не отличается от исходного варианта. А девушке нужно чтобы все варианты находились

[3D Hunter]

antikiler_, честно, бесят такие люди как вы. Хотите показаться умнее? Вы внимательно прочли заголовок темы и поняли что конкретно нужно автору топика? А то прочтут по диагонали и предлагают решение совершенно не в тему.
Тот вариант, что вы написали, не снимает выделение с остальных строк, если они были выделены.

[antikiler_]

Сообщение от Умагаджи

Так как Вы сделали не то.. он не отличается от исходного варианта. А девушке нужно чтобы все варианты находились

согластно задание девушки

но только когда находит дальше невозможно продолжить поиск поиск аналогичных значений.

у меня все правильно

Тот вариант, что вы написали, не снимает выделение с остальных строк, если они были выделены.

А Вы проверьте...

честно, бесят такие люди как вы

Взаимно...

[3D Hunter]

Хорошо, давайте разберемся до конца Вчитаемся во фразу ТС в первом посте. Видим, что проблема возникла в том, что после нахождения ПЕРВОГО совпадения поиск аналогичных значений не идет дальше. Т.е. всегда выделяется не более одной строчки в ListBox'е. ТС нужен результат поиска, состоящий из нескольких найденных совпадений, если таковые есть. А в приложенном примере такие совпадения есть. Для этого, как минимум, нужно поставить свойство MultiSelect:=True.

А Вы проверьте...

Т.е. вы утверждаете, что ваш код будет снимать выделение со всех выделенных строк в ListBox'е перед новым поиском? Проверил, не работает Этот код вообще ничего не находит по маске ввода.

[antikiler_]

Сообщение от 3D Hunter

Хорошо, давайте разберемся до конца Вчитаемся во фразу ТС в первом посте. Видим, что проблема возникла в том, что после нахождения ПЕРВОГО совпадения поиск аналогичных значений не идет дальше. Т.е. всегда выделяется не более одной строчки в ListBox'е. ТС нужен результат поиска, состоящий из нескольких найденных совпадений, если таковые есть. А в приложенном примере такие совпадения есть. Для этого, как минимум, нужно поставить свойство MultiSelect:=True.

Еще раз внимательно перечитал пост ТС, понял где моя ошибка. Приношу по этому поводу свои извинения.

Этот код вообще ничего не находит по маске ввода.

А вот это - неправда. Я таким кодом часто пользуюсь. Возможно теперь Вы неправильно что-то делаете...

[3D Hunter]

Он работает, но не так, как нужно автору темы. А так да, работает, только находит в случае полного совпадения, а не вхождения.

[antikiler_]

Скачал.Сделал.Работает.
Search_text_in_ListBox_FIXED_2.rar

Он работает, но не так, как нужно автору темы. А так да, работает, только находит в случае полного совпадения, а не вхождения.

Я это уже понял....