[Delphi] Wyszukiwanie pozycji w ListBoxie

Jestem w Delhi dopiero nowy i jóż trafiłem na pewien problem którego nie mogę rozwiązać ;-( ;-(
mam na formie Edita i ListBoxa. Chcę wpisując do edita słowo aby zostało zaznaczone w ListBoxie. Wiem że jest w postach gdzieś rozwiązanie ale nie mogę tego kodu dostosować do własnych potrzeb ;-( ;-( ;-(

W downloadzie chyba (albo w gotowcach) masz HelEngine to jest dokładnie to o co prosisz ;).

W onchange edita wpisz kod:

var
i:integer;
szukana,linie:string;
begin
ListBox1.ItemIndex:=0;
for i:=0 to ListBox1.Items.Count-1 do
begin
szukana:=Edit1.Text;
linie:=Copy(ListBox1.items.Strings[i], 1, Length(Edit1.Text));
if linie = szukana then
begin
ListBox1.ItemIndex:=i;
break;
end;
end;

pozdrówka :)

Stokrotne dzięki !!!!!!!
To naprawdę działa. dzięki Darrrrek. Wiedziałem, że na kogoś tutaj zawsze można liczyć. [cya] [cya] :-) :d

W onchange edita wpisz kod:

var
i:integer;
szukana,linie:string;
begin
ListBox1.ItemIndex:=0;
for i:=0 to ListBox1.Items.Count-1 do
begin
szukana:=Edit1.Text;
linie:=Copy(ListBox1.items.Strings[i], 1, Length(Edit1.Text));
if linie = szukana then
begin
ListBox1.ItemIndex:=i;
break;
end;
end;

pozdrówka :)

:|:|:|:|:|:|:|:|:|

w tym zdarzeniu co wyżej ale wpisać:
[code]
ListBox1.ItemIndex:=ListBox1.Items.IndexOf(Edit1.Text));
[/code]
i biega :)