Question

求教delphi listbox的问题

我想实现下面的功能，通过输入Edit的内容，在listbox中找到相同的内容。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
IndexNum:integer;
begin
IndexNum:=ListBox1.Items.IndexOf(Edit1.Text);
if IndexNum <> -1 then
ListBox1.Selected[IndexNum] :=True;
end;

在窗体上放入Edit和Listbox还有一个按钮,在ListBox内加入一些内容,然后在Button按钮的Click事件中写上边的代码,试一下!

Answer 2

若是你需要实现此功能我并不建议你使用TListBox。而是使用TComboBox，因为ComboBox 直接实现了此类功能，你在主窗口中放置一个ComboBox。将它Style设置成 csSimple。这时就可以调整ComboBox的高度了。你可以像TListBox 一样设置Items，并通过ItemIndex来获取选中的项目。也可以通过ComboBox的Text属性来获取用户所输入的内容。而且这样做的好处就是可以让ComboBox在

用户输入的时候，选择近似的项目。 实际效果如图：

Answer 3

一般我是用循环解决，
if ListBox1.items.count >0 then
begin
for i:=0 to ListBox1.items.count-1 do
begin
if ListBox1.items[i].Text = Edit1.Text then
begin
//你要进行的操作
break;
end;
end;
end;

不知道哪位还有更简洁的办法没有？