有关ADOQuery和listbox的问题

[liangkove]

我在ADOQuery中返回多个name字段值a,b,c,d...怎样把这些值以每个字段值占一行输出到listbox1中呢？另外，又怎样把listbox1中的多行的值a,b,c,d...输出到listbox2中的一行呢？小弟接触delphi不久，望大家指点一下啦，麻烦大家了，谢谢。

[ndujun]

ADOQuery.first;
listbox1.Items.clear;
while not ADOQuery.Eof do
begin
listbox1.Items.Append(ADOQuery.fieldbyname('name').asstring);
ADOQuery.next;
end;

listbox2.items.assign(listbox1.items);

[VeryOldMan]

while not ADOQuery1.Eof do
begin
ListBox1.Items.Add(ADOQuery1.FieldByName('name').AsString);
ADOQuery1.Next;
end;

[zzlazio]

ADOQuery.first;
listbox1.Items.clear;
while not ADOQuery.Eof do
begin
listbox1.Items.Append(ADOQuery.fieldvalues['name']);
ADOQuery.next;
end;

[wozhuchuanwei]

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
SQL.Clear;
SQL.Text := 'Select Top 2 * FROM sysobjects';
Open;
while not(eof) do
begin
with ListBox1.Items do
begin
Add(fieldbyname('name').AsString);
Add(fieldbyname('xtype').AsString);
Add(fieldbyname('id').AsString);
Add(fieldbyname('uid').AsString);
end;
ListBox2.Items.Add(fieldbyname('name').AsString
+fieldbyname('xtype').AsString
+fieldbyname('id').AsString
+fieldbyname('uid').AsString);
Next;
end;
end;

[liangkove]

结贴啦，谢谢大家了。