如何把数据库中的某个字段各记录输出为字符串，为什么我的代码写出来只看到一条记录？

[FrancisW]

procedure TForm1.Button4Click(Sender: TObject);

var
str:string;
begin
str:=adotable1.FieldByname('PSNUM').ASstring;//从数据库取出字符串
ListBox1.Items.Delimiter:=',';//设置分隔符
ListBox1.Items.DelimitedText:=str;//设置要分隔的字符串
end;

end.

希望的结果是在ListBox1中看到：
84112364,84112354，84115647...
可是运行结果仅仅显示1条记录，为何？如何解决？

[Jethill]

listbox中显示的应该是一个列表，如果要向里面添加选选项，应该用listbox.items.add（）才可以。

[UnkownState]

Qry.First;
while not Qry.Eof do
begin
//your code
Qry.Next;
end;

[cjrj2008]

with adoquery1 do
begin
close;
sql.Clear ;
sql.Text:='select type1 from yaotype1';
open;
first;
while not adoquery1.Eof do
begin
listbox1.items.Add((adoquery1.fieldByName('type1').AsString)+',');
adoquery1.Next ;
end;
end;