Edit1.Text := ComboBox1.Items(ComboBox1.ItemIndex);

解决方案 »

  1.   

    edit1.text:='本科';
    combobox1.text:=Combobox1.Items.Indexof(edit1.text);给分!
      

  2.   

    chiphead
    我试过了,可是编译时说missing operation or semicolon,还有incompatible types:string and Tstring
      

  3.   

    对不起!我写错了!edit1.text:=ComboBox1.Items[Combobox1.Items.Indexof(edit1.text)];
      

  4.   

    嗯,对的,谢谢holyowl,也谢谢chiphead.
      

  5.   

    Sorry。我的VB语法又在作怪了。
    应该用方括号(然后加上分号!):
    Edit1.Text := ComboBox1.Items[ComboBox1.ItemIndex];