Question

delphi中怎么可以清空combobox的items但保留.text

就是我已经从combobox.items中选了一个显示在combobox.text，然后清空items，但是同时显示的combobox.text不变，这个能实现吗？谢谢大虾们

Answer 1

给你个demo吧，items请用用clear方法，items被清空不影响text

一个combobox俩个button一个label

procedure TForm1.Button1Click(Sender: TObject);
begin
  combobox1.Items.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  label1.Caption := ComboBox1.Text;
end;

追问

你的对，可是我想把清空放在change事件中，这样.text就一起被清空了，有什么方法可以留住combobox.text？

追答

请用combobox的click事件

Answer 2

var
 s: string;
begin
 s := combobox1.Text;
 ComboBox1.Clear;
 ComboBox1.Items.Clear; 
 ComboBox1.Text := s;   
end;