procedure TForm1.Button1Click(Sender: TObject);
var a:string;
begin
a:= adoquery1.fieldbyname('goods_pinz').AsString;//showmessage(a); //这里可以看到a=youcombobox1.itemindex:=combobox1.Items.IndexOf(a);//但是combobox1里还是不显示//index=-1
end;设置combobox的style为 csdownlist经查找indexof()必须是const,如果直接用indexof('优'),则可以,现在该如何实现这个功能那?
combobox1.itemindex:=combobox1.Items.IndexOf(trim(a));
~~~~~实际上,直接用combobox1.text := trim(a); 即可
combobox.items.add();