Question

DELPHI listbox控件

我想把数据库搜索到的书本显示在LISTBOX上
dataModule1.ADOquery3.SQL.Add('select * from bkinfo where book_person like "%'+edit1.Text+'%"')
istbox1.Items.Add(dataModule1.ADOquery3.FieldByName('book_person').AsString );
我这样只能在LISTBOX显示一本 怎么才能显示多本呢？

Answer 1

with dataModule1.ADOquery3 do
begin
SQL.Add('select * from bkinfo where book_person like "%'+edit1.Text+'%"');
Open;
First;
while not Eof do
begin
istbox1.Items.Add(FieldByName('book_person').AsString );
next;
end;
end;

Answer 2

for (ADOquery3.First();!ADOquery3.Eof;ADOquery3.Next())
Listbox1.Items.Add(dataModule1.ADOquery3.FieldByName('book_person').AsString );

/*不知道for是不是这样用的。。。没用过，这是就改一下*/