combobox问题!

combobox问题! VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061222143942189.html
 
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var   a:string;  
  begin  
  a:=   adoquery1.fieldbyname('goods_pinz').AsString;  
   
  //showmessage(a);   //这里可以看到a＝you  
   
  combobox1.itemindex:=combobox1.Items.IndexOf(a);  
   
  //但是combobox1里还是不显示//index=-1  
  end;  
   
  设置combobox的style为   csdownlist  
   
  经查找indexof（）必须是const，如果直接用indexof('优')，则可以，现在该如何实现这个功能那？

应该没问题.     可能是你从数据库中取出来的值带空格.   可以这样试一下:  
   
  a   :=   adoquery1.fieldbyname('goods_pinz').AsString;  
  combobox1.itemindex:=combobox1.Items.IndexOf(trim(a));  
                                                                                            ~~~~~  
   
  实际上,直接用combobox1.text   :=   trim(a);     即可  
 

哦,收回刚才我说的最后一句:   "实际上,直接用combobox1.text   :=   trim(a);     即可"

用text肯定不行，因为我已经设置成csdownlist，我查下空格

方法没错，是不是ComboBox1.Items.CommaText里面根本就没有这个值呢？

先看看combobox中是否存在你要找的值，方法没有问题，真确的！

你得先把各个内容写入到combobox里面才行  
  combobox.items.add();