[Delphi] Wyszukiwarka w ListBox

Cześć wam!
Mam taki problem z wyszukiwarką item'ów w listbox'ie.

Mam taki kod:

procedure TForm1.Button1Click(Sender: TObject); var i: integer; tofind: string; //szukany tekst begin tofind:=edit1.text; for i:=0 to ListBox1.Items.Count-1 do begin if Pos(tofind, ListBox1.Items[i]) > 0 then begin ListBox1.ItemIndex:=i; break; end; end; end;

Wszystko działa, ale chciałbym aby po ponownym kliknięciu na przycisk zaznaczyło się następne słowo.

np.
Tekst w listbox'ie:

jan
kowalski
jan
kowalski
jan
kowalski

i jeżeli wpiszę w edit słowo "jan" to po kliknięciu na button zaznacza się pierwsza linia tekstu, a po ponownym kliknięciu trzecia itd. aż do samego końca.

---

procedure TForm1.Button1Click(Sender: TObject); var i: integer; tofind: string; //szukany tekst begin tofind := edit1.text; for i:=ListBox1.ItemIndex + 1 to ListBox1.Items.Count - 1 do begin if Pos(tofind, ListBox1.Items[i]) > 0 then begin ListBox1.ItemIndex := i; break; end; end; end;

// + za ładne formatowanie kodu ...kolego anonimg3, polecam tak właśnie pisać :)
// m.
Użytkownik migajek edytował ten post 19 marzec 2010, 13:42

procedure TForm1.Button1Click(Sender: TObject); var i: integer; tofind: string; //szukany tekst begin tofind := edit1.text; for i:=ListBox1.ItemIndex + 1 to ListBox1.Items.Count - 1 do begin if Pos(tofind, ListBox1.Items[i]) > 0 then begin ListBox1.ItemIndex := i; break; end; end; end;

// + za ładne formatowanie kodu ...kolego anonimg3, polecam tak właśnie pisać :)
// m.

Dzięki wielkie wszystko działa! ;)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl