在ComboBox1Change里写入：procedure TForm1.ComboBox1Change(Sender: TObject)varstr:stringbeginstr:=ComboBox1.Textend楼上的那样写有