我點擊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;
uj5u.com熱心網友回復：
ComboBox1.items.clear;uj5u.com熱心網友回復：
一、清空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;
uj5u.com熱心網友回復：
先清除,再添加. 應該就是這樣的
uj5u.com熱心網友回復：
combobox1.clear;uj5u.com熱心網友回復：
1樓的是正解轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/64624.html
標籤：VCL組件開發及應用