Delphi 在列表中查询指定数据，需要数据库配合。适合Delphi初学者学习研究，相关代码如下： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　i:integer; 　　begin 　　 FOR I:=0 TO ListBox1.Items.Count-2 do 　　 begin 　　 ListBox1.ItemIndex:=i; 　　 if edit1.Text= trim(ListBox1.Items[I]) then exit; 　　 end; 　　end;