关于combobox的datavalue的问题

在应用combobox的时候，可能大家只注意他的text值的，但如果显示的是text值，但你要用到value值进行搜索的时候，要怎办，提供下列做法，从 网上转帖procedure TForm1.Button1Click(Sender: TObject); var s : string; begin    combobox1.Clear;    s := '01';   combobox1.Items.AddObject('北京',TObject(s));    s := '02';    combobox1.Items.AddObject('天津',TObject(s));    s := '03';   combobox1.Items.AddObject('上海',TObject(s)); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin   edit1.Text := string(combobox1.Items.Objects[combobox1.ItemIndex]); end;