Delphi怎么自动寻找listbox中的内容并自动连接

[wangxin_yu]

Delphi怎么自动寻找listbox中的内容并自动连接?需要新建一个edit控件吗？在editchange里编写程序吗？

[lyhoo163]

ListBox1.Items就是StringList类型，我们可以通过 ListBox1.Items.Strings[i] 访问全部值 搜索

S:=Edit1.Text;
for i:=0 to ListBox1.Items.Count-1 do
begin
  if S=ListBox1.Items.Strings[i] then // 找到指定项
  begin
    ListBox1.ItemIndex:=i;
    exit;
  end;
end;