поиск в листбох

[XE5]

Говорю же игнорировать таких людей нужно. Пусть учится мысли излагать. Не красиво, зато поучительно.

[alman12]

Сообщение от Аватар

Покажи как написал поиск

procedure TForm1.Edit3Change(Sender: TObject);

begin
if edit1.text <> '' then
listbox1.ItemIndex:=( listbox1.Items.IndexOf(edit1.text))
else
showmessage('Вы должны ввести текст для поиска');
end;

у меня код такой но в этом коде выделяется найденная строка но я хочу что остался найденная строка другие исчезли

[Аватар]

Хитрый способ поиска. Такой поиск это что-то с чем-то. Ну ладно

procedure TForm1.Edit3Change(Sender: TObject);
var i: Integer;
    s: String;
begin
  if edit1.text <> '' then begin
    i:=listbox1.Items.IndexOf(edit1.Text);
    if i>=0 then begin
      s:=listbox1.Items.Strings[i];
      listbox1.Clear;
      listbox1.Items.Add(s);
    end
    else showmessage('Текст не найден');
  end
  else showmessage('Вы должны ввести текст для поиска');
end;

[XE5]

alman12 Дай угадаю. А при вводе иного слова строки должны появляться. Наводящий вопрос. Куда должны исчезать строки?

[alman12]

Сообщение от Аватар

Хитрый способ поиска. Такой поиск это что-то с чем-то. Ну ладно

procedure TForm1.Edit3Change(Sender: TObject);
var i: Integer;
    s: String;
begin
  if edit1.text <> '' then begin
    i:=listbox1.Items.IndexOf(edit1.Text);
    if i>=0 then begin
      s:=listbox1.Items.Strings[i];
      listbox1.Clear;
      listbox1.Items.Add(s);
    end
    else showmessage('Текст не найден');
  end
  else showmessage('Вы должны ввести текст для поиска');
end;

здес нечего не найдет

[alman12]

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

здес нечего не найдет

при введения сообшает что текст не найден

[alman12]

Сообщение от Аватар

Хитрый способ поиска. Такой поиск это что-то с чем-то. Ну ладно

procedure TForm1.Edit3Change(Sender: TObject);
var i: Integer;
    s: String;
begin
  if edit1.text <> '' then begin
    i:=listbox1.Items.IndexOf(edit1.Text);
    if i>=0 then begin
      s:=listbox1.Items.Strings[i];
      listbox1.Clear;
      listbox1.Items.Add(s);
    end
    else showmessage('Текст не найден');
  end
  else showmessage('Вы должны ввести текст для поиска');
end;

нечего не искает при введения сообшает что текст не найден

[alman12]

я имею ввиду что допустим, я ввожу в edit "Ко" и в листбоксе должно отображатся строчки содержащие это сочетание букв

[Аватар]

Следующий раз до полного и внятного изложения хотелки помогать не буду

procedure TForm1.Edit3Change(Sender: TObject);
var i,k: Integer;
    s: array of String;
begin
  SetLength(s,listbox1.Items.Count);
  if edit1.text <> '' then begin
    k:=-1;
    for i:=0 to listbox1.Items.Count-1 do
      if Pos(edit1.text,listbox1.Items.Strings[i])>0 then begin
        Inc(k);
        s[k]:=listbox1.Items.Strings[i];
      end;
    if k>=0 then begin
      listbox1.Clear;
      for i:=0 to k do listbox1.Items.Add(s[i]);
    end
    else showmessage('Текст не найден');
  end
  else showmessage('Вы должны ввести текст для поиска');
end;

[alman12]

Сообщение от Аватар

Следующий раз до полного и внятного изложения хотелки помогать не буду

procedure TForm1.Edit3Change(Sender: TObject);
var i,k: Integer;
    s: array of String;
begin
  SetLength(s,listbox1.Items.Count);
  if edit1.text <> '' then begin
    k:=-1;
    for i:=0 to listbox1.Items.Count-1 do
      if Pos(edit1.text,listbox1.Items.Strings[i])>0 then begin
        Inc(k);
        s[k]:=listbox1.Items.Strings[i];
      end;
    if k>=0 then begin
      listbox1.Clear;
      for i:=0 to k do listbox1.Items.Add(s[i]);
    end
    else showmessage('Текст не найден');
  end
  else showmessage('Вы должны ввести текст для поиска');
end;

хорошо но почему когда очисту Edit не отображаются другие строки ?