ListBox & SpeedButton

[Rebel123]

Пишу словарь по англ. языку. Есть два ListBox'a, один SpeedButton. Слова загружены в Items (свойства ListBox'a). Вот немогу реализовать чтоб когда прописовал в Edit'e нужное тебе слово и на клике SpeedButton'a он его проверял в Items и находил. Помогите, как это можно реализовать???

[Kotofff]

Можно так :

itemNo := ListBox1.Items.IndexOf('Нужная строка');// здесь будет номер элемента или -1 если такового нет
// и дальше использовать номер найденного элемента

НО !!! В ListBox`е она (строка) должна быть именно такой 'Нужная строка', а не например 'Нужная ' потому что результата не будет. Поэтому советую применить базу данных, в которой есть возможность искать фразу по частичному вхождению.

[Rebel123]

Сорри, но я не чего не понял! да к тому же еще ошибка строки выходит!

[psycho-coder]

Я предложу вариант получше
В свойствах ListBox1 поставьте

MultiSelect := true

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
    if Pos(Edit1.Text, ListBox1.Items.Strings[i]) > 0 then
      ListBox1.Selected[i] := true;
end;

[Rebel123]

Спасибо psycho-coder.
У меня еще 1 вопрос! Вот у меня есть ScrollBar'ы от двух ListBox'ов. Надо будет сделать так чтоб при перемотки одного ScrollBar'a чтоб и перематывался и другой (таким способом пользователю будет легче, он не сможет потерять свое слово и перевод на него)

procedure TlistBox.vs;
begin
inherited;
 Form4.ListBox2.TopIndex:=m.Pos;
end;

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

[mihali4]

По поводу поиска в листбоксе - в обработчике ONCHANGE вашего эдита напишите всего одну строку:
Listbox1.perform(lb_selectstring,-1,longint(pchar(Edit1.text)));
После этого у вас при вводе первой же буквы слова будет выбрана строка в листбоксе, начинающаяся с этой буквы. И так далее.
По поводу синхронизации листбоксов. Есть у листбокса такое свойство - ItemIndex... Дальше - трудно не догадаться, не правда ли?

[psycho-coder]

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

По поводу поиска в листбоксе ...

Прикольно... Но такой способ ищет только первое вхождение, а если похожих слов много, то мой вариант выделит все.
А при включенном MultiSelect вообще не выделяет

[mihali4]

Сообщение от psycho-coder

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

Простите, а зачем выделять все слова?
Мой способ выделяет именно то слово из множества похожих, которое в точности соответствует введенному в эдит...
Причем поиск происходит по мере ввода каждой буквы.
И тут же будет указан перевод.
Похоже, вы не до конца разобрались, а вернее, поленились поставить нормальный эксперимент...

[psycho-coder]

Нет, не поленился. Все гораздо проще.
Невнимательно прочитал, что хочет ТС. Банально. (

[Rebel123]

Сообщение от mihali4
Есть у листбокса такое свойство - ItemIndex... Дальше - трудно не догадаться, не правда ли?

-Вы имеете ввиду вот это: ListBox1.ItemsIndex:=ListBox2.Items Index;, вот это я сделал уже. А меня интересует перемотка, выше выставлял кусочек кода но он когда перематывает, отскакивает обратно.
-Вот выставил свою прогу, посмотрите сами.........
P.S mihali4 - ваша версия поиска оказалось удобнее, спасибо вам
pchyco-coder - ваша версия тоже хорошо, тоже спасибо