Поиск по ListBox

__PION__ · Регистрация: 21.07.2010

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

здарова!
мне нужно произвести поиск по списку
следущий код это делает, но если ввести слово целиком. а мне нужно, чтобы темы в ListBox выделялись сразу при введениии уже первой буквы в Edit.
например если я ввел в Edit букву "а", то в ListBox выделялась тема которая начинается на букву "а" (и дальше по алфавиту (без учета регистра). алфавиты - рус и англ)

теперь код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Edit1Change(Sender: TObject);
var i: integer;
begin
Memo1.Clear;
if Length(Edit1.Text) <> 0 then
   for i:= 0 to ListBox1.Items.Count - 1 do
   if ListBox1.Items.Strings[i] = Edit1.Text then
   try
   AssignFile(f, ExtractFilePath(Application.ExeName) + 'а3\' + ListBox1.Items.Strings[i] + '.txt');
    {$I-}
    Reset(f);
    {$I+}
   if IOResult = 0 then  begin
     while not EOF(f) do
          begin
               readln(f, st);
               form1.memo1.Lines.Add(st);
           end;
         closefile(f);
    end;
  except
  exit;
 end;
end;

@Mad_Dog · 11.08.2010, 10:14

Вот таким образом можно осуществить быстрый поиск в ListBox

Delphi
1
ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit1.text)));

__PION__ · 11.08.2010, 11:26 **[ТС]**

Mad_Dog, разъяснения можно. напр. что за ф-я Perform, и дальше в скобках не понятно

Добавлено через 2 минуты
и куда в моем коде его втиснуть или мой код вабще не нужен?
просто с каждой строкой в листбоксе связан файл и он должен открыватся в Мемо

@Mad_Dog · 11.08.2010, 11:57

Посмотри пример...
Tmp.rar

@John_Pa9JIbHuK · 11.08.2010, 13:18

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
begin
for I := 0 to ListBox1.Items.Count - 1 do
   begin
 
   //Åñëè íàøëè òåêñò èç edit
   if Pos(Edit1.Text, ListBox1.Items[i]) > 0 then
      begin
 
      //âûäåëÿåì íàéäåííóþ ñòðîêó â ListBox,
      //âûõîäèì èç öèêëà
      Listbox1.ItemIndex := I;
      Break;
      end;
 
   //Åñëè ñëîâî íå íàéäåíî
   if Pos(Edit1.Text, ListBox1.Items[i]) = 0 then
      begin
      //Ñíèìàåì âûäåëåíèå èç ListBox
      Listbox1.ItemIndex := -1;
      end;
 
   end;
end;

@Mad_Dog · 11.08.2010, 13:30

А если ListBox содержит не одну сотню строк? То при вводе каждого символа в Edit бум бегать по всем строкам листбокса и искать вхождение содержимого Эдита? Да и вхождение подстроки может начинаться с любой позиции в строке Листбокса...

@John_Pa9JIbHuK · 11.08.2010, 13:36

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

А если ListBox содержит не одну сотню строк?

Ну я думаю это не тот случай

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

То при вводе каждого символа в Edit бум бегать по всем строкам листбокса и искать вхождение содержимого Эдита?

Парень молодой побегает

__PION__ · 11.08.2010, 15:00 **[ТС]**

John_Pa9JIbHuK, -> Ну я думаю это не тот случай
это тот случай

блин знал же что ф-я Pos нужна, не смог реализовать

@Mad_Dog · 11.08.2010, 15:06

Ну, если уж использовать Pos(), то проверять на вхожение подстроки в строку и равенство Pos()=1...

__PION__ · 11.08.2010, 15:08 **[ТС]**

John_Pa9JIbHuK, и как он работает?? мой хоть по словам искал, а этот вабще не реагирует

@John_Pa9JIbHuK · 11.08.2010, 15:12

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

и как он работает?? мой хоть по словам искал, а этот вабще не реагирует

Ну ты вводишь буквы в едит и если он находит ее в лист боксе то строка выделяется

__PION__ · 11.08.2010, 15:18 **[ТС]**

Mad_Dog, не обезательно Pos. то что ты дал работает (осталось только с файлами его связать). напр. в списке 2 слова - авто (инфа - иномарки, отечественные) и атом (инфа - водород, протоны ...). при вводе в Edit буквы "а" должно выделяться "авто", т.к. 2-ая буква "в", ну и т.д в этом роде.

инфа выводится в Мемо

Добавлено через 3 минуты
John_Pa9JIbHuK, нет же, не работает. на 2-ом условии ошибка

Добавлено через 1 минуту
дкмаю после первого условия, должно идти ELSE

@John_Pa9JIbHuK · 11.08.2010, 15:23

Love_and_Peace, я прежде чем код выложил проверил все работает

и else необязательно можно и два if сделать

Добавлено через 2 минуты

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
begin
for I := 0 to ListBox1.Items.Count - 1 do
   begin
 
   //Если нашли текст из edit
   if Pos(Edit1.Text, ListBox1.Items[i]) > 0 then
      begin
 
      //выделяем найденную строку в ListBox,
      //выходим из цикла
      Listbox1.ItemIndex := I;
      Break;
      end;
 
   //Если слово не найдено
   if Pos(Edit1.Text, ListBox1.Items[i]) = 0 then
      begin
      //Снимаем выделение из ListBox
      Listbox1.ItemIndex := -1;
      end;
 
   end;
end;
 
end.

@Mad_Dog · 11.08.2010, 15:25

Love_and_Peace, я полагаю, что в твоем Листбоксе включена сортировка...

__PION__ · 11.08.2010, 15:26 **[ТС]**

John_Pa9JIbHuK, и тя выделяются строки????

@John_Pa9JIbHuK · 11.08.2010, 15:38

Love_and_Peace,
Попробуй так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
begin
ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit1.text)));
if Listbox1.ItemIndex <> -1 then
  begin
  AssignFile(f, ExtractFilePath(Application.ExeName) + 'à3\' + ListBox1.Items[listbox1.itemindex] + '.txt');
  Reset(f);
  if IOResult = 0 then
    begin
    while not EOF(f) do
      begin
      readln(f, st);
      form1.memo1.Lines.Add(st);
      end;
    closefile(f);
    end;
  end;
Listbox1.ItemIndex := -1;
end;

Добавлено через 7 минут
Только плохо что это будет происходить по нажатию клавиши так как постоянно будет открываться файл который возможно тебе не нужен.

__PION__ · 11.08.2010, 20:54 **[ТС]**

Mad_Dog, если ты имеешь ввиду св-во Sorted, то оно у меня отключено (в смысле false)
John_Pa9JIbHuK, по нажатию какой клавиши.
в этом коде какую бы букву я не ввел в Мемо выходит инфа первой строки в списке

Добавлено через 42 минуты
объясните кто -нибудь (подробно!) что делает следующая строка