在第二次显示的时候如何清空combobox之前的内容

Question

我点击bottom2但是combobox之前的内容还保持在里面，这样每点击一次内容就会累加一次，如何在点击的时候将combobox之前的内容清空？谢谢procedure TForm1.Button2Click(Sender: TObject);var
  i:integer;
   begin
    with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct code from alldata where type='''+ComboBox2.Text+'''');
   Open;
  end;
  for i:=0 to ADOQuery1.RecordCount-1 do
  begin
    ComboBox1.Items.Add(ADOQuery1.fieldbyname('code').AsString);
    ADOQuery1.Next;
  end;
  ComboBox1.ItemIndex:=0;
end;

Answer 1

ComboBox1.items.clear;

Answer 2

一、清空ComboBox的列表
ComboBox1.items.clear;二、ComboBox的列表，加入字符
ComboBox1.items.Add('字符');三、清空ComboBox的选择字符
ComboBox1.Text:='';
 procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct code from alldata where type='''+ComboBox2.Text+'''');
    ComboBox2.Text:='';
    Open;
  end;
  ComboBox1.Items.clear;
  for i:=0 to ADOQuery1.RecordCount-1 do
  begin
    ComboBox1.Items.Add(ADOQuery1.fieldbyname('code').AsString);
    ADOQuery1.Next;
  end;
  ComboBox1.ItemIndex:=0;
end;

Answer 3

combobox1.clear;