求教delphi listbox的问题

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

答案：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事件中写上边的代码,试一下!

其他：一般我是用循环解决，
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;

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

上一个：delphi6 IDE 如何应用 xp 主题
下一个：Delphi 线程对象！？