delphi combobox取值问题

在ComboBox1Change里写入：

procedure TForm1.ComboBox1Change(Sender: TObject)

var

str:string

begin

str:=ComboBox1.Text

end

楼上的那样写有局限性，如果那些 不好、中等、好，这些字符换位置了 ComboBox1.Items.Strings[1] 就不是中等了。 用下面的这个比较好，无论你怎么换位置都可以读出来,举个例子给你吧：

label1.Caption:=combobox1.items[combobox1.ItemIndex]

If not (Key in ['0'..'9','.',#27,#13,#8]) then

Key:=0

这样支持0到9还有小数点，同时也支持回车、退格、ESC

---