combobox的问题

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  q1:tquery;
  list:tstringlist;
begin
  q1:=tquery.Create(nil);
  q1.DatabaseName:='ima';
  q1.Close;  q1.SQL.Clear;
  q1.SQL.Add('select type_name from define_type');
  q1.Open;
  while not q1.Eof do
  begin
  list:=tstringlist.Create;
  list.Append(q1.fieldbyname('type_name').AsString);
  q1.Next;
  end;  combobox.Items.Clear;
  combobox.additem(''list'');
end;
我想实现combobox下拉框显示type_name中的记录,可是编译出错,提示是没有充足的变量,请问是哪里错了?

Answer 1

combobox.additem(list);
试试吧

Answer 2

你也可以不用List变量，直接在循环里面加数据呀
combobox.additem(q1.fieldbyname('type_name').AsString)

Answer 3

combobox.additem(list);
试过了,不可以

Answer 4

combobox.additem(q1.fieldbyname('type_name').AsString)

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
var
  q1:tquery;
begin
  q1:=tquery.Create(nil);
  q1.DatabaseName:='ima';
  q1.Close;  q1.SQL.Clear;
  q1.SQL.Add('select type_name from define_type');
  q1.Open;   while not q1.Eof do
   begin
     combobox.Items.add(q1.fieldbyname('type_name').AsString);
     q1.Next;
   end;

Answer 6

不好意思，我也大意了，应该上combobox.Items.add(list)，不好意思