用adoquery做该表的全文搜索,得到该表名为name字段的值,给动态字符串,一一加到listbox中,具体代码实现:procedure TForm1.Button1Click(Sender: TObject); var i:integer; s:tstrings;begin s:=tstringlist.Create; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Text:='select * from a'; adoquery1.Open; adoquery1.First; while not adoquery1.Eof do begin s.Add(trim(adoquery1.Fields.Fieldbyname('name').Value)); adoquery1.Next; end; for i:=0 to s.Count-1 do begin listbox1.Items.Add(s.Strings); end; s.Free;end;