Поиск в listbox (delphi)

[L3zh1Y]

Всем привет! Пролазил на этом форуме, нашел варианты поиска, но не смог организовать в своей программе. Пожалуйста, помогите. Нужно чтобы из listbox1 допустим если ввел букву "а" нашел и вывел все слова начинающиеся на "а" в listbox6. Вот код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    ListBox4: TListBox;
    ListBox5: TListBox;
    ListBox6: TListBox;
    Button1: TButton;
    procedure ComboBox1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Math, StrUtils;

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if ComboBox1.ItemIndex=0 then ListBox5.Visible:=true;
 if ComboBox1.ItemIndex<>0 then ListBox5.Visible:=false;

 if ComboBox1.ItemIndex=1 then ListBox1.Visible:=true;
 if ComboBox1.ItemIndex<>1 then ListBox1.Visible:=false;

 if ComboBox1.ItemIndex=2 then ListBox2.Visible:=true;
 if ComboBox1.ItemIndex<>2 then ListBox2.Visible:=false;

 If ComboBox1.ItemIndex=3 then ListBox3.Visible:=true;
 if ComboBox1.ItemIndex<>3 then ListBox3.Visible:=false;

 if ComboBox1.ItemIndex=4 then ListBox4.Visible:=true;
 if ComboBox1.ItemIndex<>4 then ListBox4.Visible:=false;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
ListBox5.Items.AddStrings(ListBox1.Items);
ListBox5.Items.AddStrings(ListBox2.Items);
ListBox5.Items.AddStrings(ListBox3.Items);
ListBox5.Items.AddStrings(ListBox4.Items);


end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 case (ListBox1.ItemIndex) of
       0 : begin
  WebBrowser1.Navigate(GetCurrentDir+'/Files/index1.htm');
  end;
  end;
end;


{все разделы}
procedure TForm1.ListBox5Click(Sender: TObject);
begin
begin
 case (ListBox5.ItemIndex) of
  0 : begin
  WebBrowser1.Navigate(GetCurrentDir+'/Files/index1.htm');
  end;
  end;
end;
end;


//Вот здесь по нажатию на кнопку осуществляется поиск.

procedure TForm1.Button1Click(Sender: TObject); 
var i:integer;
begin
 for i:=0 to listbox1.Items.Count -1 do
     begin
        ListBox6.Visible:=true;
       if pos(Edit1.Text,ListBox1.Items[i])>0  then
       ListBox6.Items.Add( ListBox1.Items[i]);
    end;  end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[L3zh1Y]

Всем спасибо, проблему решил, глупость. Перепутал листбокс в поиске...