我想判断combobox为空是，清除edit1.TEXT，可是不行

Question

我想判断combobox为空是，清除edit1.TEXT，可是不行
if length(trim(combobox1.text))=0 then
edit1.text:='';
不成功

Answer 1

if length(trim(combobox1.text))>0 then
edit1.text:='';

Answer 2

为什么要大于0
我希望这个combobox为空的时候，清空edit1.text

Answer 3

ComboBox1.Text := '';
ComboBox1.ItemIndex := -1;
上面两句两个一起用上就可以了。

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.text:='';
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if length(trim(combobox1.text))=0 then
  edit1.text:='';
end;

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1.text:='';
  combobox1.ItemIndex := -1;//根据你的需要
end;procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if length(trim(combobox1.text))=0 then
    edit1.text:=''
  else edit1.text:= combobox1.text;
end;

Answer 6

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if Length(Trim(combobox1.text))=0 then
    Edit1.text:=''end;

Answer 7

if combobox1.text='' then
  edit1.text:='';
就行了阿。
你是要判断COMBOBOX为空还是显示的内容为空阿？如果只是显示内容为空上面这句就可以了。
要判断COMBOBOX这空的庆自己要遍历一次。

Answer 8

我是要当combobox为空时，那么edit。text的内容就为空
可是我这样，还是不行啊
if Length(Trim(combobox1.text))=0 then
    Edit1.text:='';

Answer 9

if combobox1.text='' then
  edit1.text:='';