Поиск по ListBox

#delphi

Ребята, подскажите поиск по ЛистБоксу. Необходимо, чтобы в Edit вписывалось слово
и, если такое словое есть, то игнорировать, а если нету, то добавить в ListBox.
Буду очень признателен за любую помощь.    

Ответы

Ответ 1

Не знаю как в старых версиях, но в последней Delphi XE2 регистр при сравнении не
учитывается. Поэтому такой код работает без проблем:
  if ListBox1.Items.IndexOf(Edit1.Text) < 0 then
    ListBox1.Items.Add(Edit1.Text);


Ответ 2

поиск в листбоксе:
procedure TForm1.Edit1Change(Sender: TObject);
begin
//поиск в списке
Listbox1.Perform(LB_SELECTSTRING, -1, longint(Pchar(Edit1.text)));
end;


Ответ 3

var
  strigns : TStringList;
begin
  strings := TStringList.Create;
  try
    strings.CaseSensitive := False;
    strings.Assign( listBox.Items );
    if ( strings.IndexOf( edit.Text ) < 0 ) then
      listBox.Items.Add( edit.Text );
  finally
    string.Free;
  end;
end;