Поиск и отображения нескольких совпадений ListBox

@TitanReks · Регистрация: 12.11.2016

Author24 — интернет-сервис помощи студентам

Доброго времени суток! Помогите с кодом поиска текста в ListBox, так, чтобы отображало все совпадения в этом же ListBox, а не только одно.

Для одного такой код:

Delphi

1	sListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(sEdit1.text)));

@droider · 11.10.2017, 09:14

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

чтобы отображало все совпадения в этом же ListBox, а не только одно

может Вам стоит посмотреть в сторону TComboBoxEx? С ним уже все есть.

@FearDog · 11.10.2017, 09:15

TitanReks, Я бы через onDrawItem реализовал. Например вводим текст в Edit1, а в ListBox1 подсвечиваются все совпадения. Ставим ListBox1.Style:=lbOwnerDrawFixed и:

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ListBox1.Refresh;
end;
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ListBox1.Canvas do
  begin
    if ListBox1.Items[Index]=Edit1.Text then
    Brush.Color:= clRed
    else
    Brush.Color:=ListBox1.Color;
    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
  end;
end;

@TitanReks · 11.10.2017, 09:31 **[ТС]**

Я хочу реализовать главным образом отображение не в виде выделения, а сортировки и отображения ТОЛЬКО совпадений.

Добавлено через 8 минут
Простое выделение при большом количестве строк в ListBox ни есть лучший вариант)

@FearDog · 11.10.2017, 11:27

TitanReks, На коленке сделал такой вариант:

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
begin
  if Edit1.Text='' then  ListBox2.Items:=ListBox1.Items else
  begin
    ListBox2.Clear;
    for I := 0 to ListBox1.Count - 1 do
    begin
      if Pos(Edit1.Text,ListBox1.Items[i])>0 then
      ListBox2.Items.Add(ListBox1.Items[i]);
    end;
  end;
end;

Также можно записывать данные в TStringList и уже из него делать выборку и добавлять в ListBox1

Добавлено через 5 минут
Типа так:

Delphi

var
  Form1: TForm1;
  SL:TStringList;
 
implementation
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SL:=TStringList.Create;
  SL.Text:=ListBox1.Items.Text;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
begin
  if Edit1.Text='' then  ListBox1.Items:=SL else
  begin
    ListBox1.Clear;
    for I := 0 to SL.Count - 1 do
    begin
      if Pos(Edit1.Text,SL[i])>0 then
      ListBox1.Items.Add(SL[i]);
    end;
  end;
end;

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	11.10.2017, 09:14	2
	Сообщение от TitanReks чтобы отображало все совпадения в этом же ListBox, а не только одно может Вам стоит посмотреть в сторону TComboBoxEx? С ним уже все есть. 0

@TitanReks 0 / 0 / 0 Регистрация: 12.11.2016 Сообщений: 22
	11.10.2017, 09:31 [ТС]	4
	Я хочу реализовать главным образом отображение не в виде выделения, а сортировки и отображения ТОЛЬКО совпадений. Добавлено через 8 минут Простое выделение при большом количестве строк в ListBox ни есть лучший вариант) 0

	11.10.2017, 11:27