[Delphi] Помогите с listbox'ами

[Рамик]

with ListBox1 do
    ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(edit1.text));

вот так у меня ищет в листбоксе введенныое слово...
как сделать теперь найденное скопировать в листбокс2?
если будет найденно более 1 слова, то их тоже скопировать туда...

[Stilet]

Скромный примерчик:

procedure TForm1.Edit1Change(Sender: TObject);
var k,i:integer;
begin
 i:=0;
 ListBox2.Items.Clear;
 i:=ListBox1.Perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text))); k:=i;
 repeat
   ListBox2.Items.Add(ListBox1.Items[i]);
   i:=ListBox1.Perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text)));
 until (i=LB_ERR)or(i=k);
end;

Копируе все что совпадает с введенным в Эдит.

[Рамик]

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

Скромный примерчик:

procedure TForm1.Edit1Change(Sender: TObject);
var k,i:integer;
begin
 i:=0;
 ListBox2.Items.Clear;
 i:=ListBox1.Perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text))); k:=i;
 repeat
   ListBox2.Items.Add(ListBox1.Items[i]);
   i:=ListBox1.Perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text)));
 until (i=LB_ERR)or(i=k);
end;

Копируе все что совпадает с введенным в Эдит.

Спасибо!
.

выдает только ошибку когда вводиш символы которых нет в лист боксе:

list index out of bounds(-1)

как это исправить?

и когда удаляешь символы все в эдит1 тоже такая ошибка вылазит

[Stilet]

В проверки кто будет ставить, Пушкин?

 
i:=ListBox1.Perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text))); k:=i;
if (Edit1.Text='')or(i=LB_ERR) then exit;
 repeat
   ListBox2.Items.Add(ListBox1.Items[i]);

[Рамик]

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

В проверки кто будет ставить, Пушкин?

 
i:=ListBox1.Perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text))); k:=i;
if (Edit1.Text='')or(i=LB_ERR) then exit;
 repeat
   ListBox2.Items.Add(ListBox1.Items[i]);

спасибо!

[Рамик]

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

В проверки кто будет ставить, Пушкин?

 
i:=ListBox1.Perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text))); k:=i;
if (Edit1.Text='')or(i=LB_ERR) then exit;
 repeat
   ListBox2.Items.Add(ListBox1.Items[i]);

with ListBox3 do
    ItemIndex := Perform(LB_SELECTSTRING, ItemIndex, LongInt(edit1.text));
i:=listbox3.perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text)));
k:=i;
if (Edit1.Text='')or(i=LB_ERR) then exit;
repeat
  listbox2.items.add(ListBox1.Items[i]+StringOfChar(' ',40-2*length(ListBox1.Items[i]))+listbox3.Items[i]);
  i:=listbox3.perform(LB_FINDSTRING,i,integer(pchar(Edit1.Text)));
until (i=LB_ERR)or(i=k);
end;

Здесь у меня аналогичная ошибка...подставил эту проверку, но все равно..