listbox的数据添加问题?

Question

adodm.ADOQCar.Close;
   adodm.ADOQCar.SQL.Clear;
   adodm.ADOQCar.SQL.Add('select 姓名 from 学生表');
   adodm.ADOQCar.Open;   for i:=0 to adodm.ADOQCar.Recordset.RecordCount-1 do
      begin
          listbox1.items.add(?????);
      end;
请问在?????的地方应该怎么写,才能让查询到的姓名字段的值添加到Listbox1中去?

Answer 1

adodm.ADOQCar.first;
while not adodm.ADOQCar.eof do begin
  listbox1.items.add(adodm.ADOQCar.fieldbyname('姓名').value);
  adodm.ADOQCar.next;
end;

Answer 2

adodm.ADOQCar.first;
while not adodm.ADOQCar.eof do begin
  listbox1.items.add(adodm.ADOQCar.fieldbyname('姓名').asstring);
  adodm.ADOQCar.next;
end;
这样好一点

Answer 3

adodm.ADOQCar.first;
while not adodm.ADOQCar.eof do begin
  listbox1.items.add(adodm.ADOQCar.fieldbyname('姓名').asstring);
  adodm.ADOQCar.next;
end;