Question

delphi 中有关ComboBox控件的一短代码 求写

ComboBox里有几个下拉：北京，杭州，上海，广州，福建。。。。。等
写一段代码
当下拉选择北京时候，Edit1.text:='abc’
当下拉选择杭州时候，Edit1.text:=‘etr’

当下拉选择北京时候，Edit1.text:=‘klf’

........
以此类推
该如何写 求接 在线等 如果没明白问题可以追加 谢谢 我在线
更正：
当下拉选择北京时候，Edit1.text:='abc’
当下拉选择杭州时候，Edit1.text:=‘etr’
当下拉选择上海时候，Edit1.text:=‘klf’

Answer 1

其实这个问题主要是如何根据combox的值找到对应值的问题，而这个要看你对数据的组织形式来定。比如，如果 北京－abc 作为数据库来保存的，那么可以用数据库查找函数来定位，然后显示。

据我的经验，如果你的数据量不大，那么推荐你使用TRzComboBox，这个组件扩展了delphi的标准组件，对于里面的Itmes，扩展为 Items - values 对，这样，当你选择某项时，可以直接取得这一项对应的 值。

追问

就用这个控件 要怎么写啊 帮帮忙啊 delphi里面有累死switch这样的语句吗

追答

不用switch这样的分支结构，那样才真的是“累死”。

既然使用TRzComboBox控件，那么当然要这么做，可以直接在TRzComboBox控件里设置Itmes/Values（或者使用TRzComboBox控件自带的编程器输入Itmes/Values对），然后响应代码如下：

procedure TForm1.RzComboBox1Select(Sender: TObject);
begin
Edit3.Text := RzComboBox1.Values[RzComboBox1.ItemIndex];
end;

也可以响应OnChange事件。

Answer 2

用数据库来管理要方便简单些，而且可以随时变化和更改。
建一个表，北京之类，字段名：城市名，abc之类，字段名：城市代码
当combobox1更新事件产生时，用一条SQL语句在数据表中找城市名的城市代码的值，然后将再赋值给EDIT.text;
select 城市名,城市代码 from 城市表 where 城市名='''+combobox.text+'''';

追问

答非所问 我没用到数据库 就是简单的一个combobox空间

Answer 3

CommboBox的Items属性是TStrings的，添加时用combobox1.Items.AddObject('北京', TObject('abc'));以些类推。
在Combobox.OnChange事件里写
var
idx: Integer;
begin
idx := TComboBox(Sender).ItemIndex;
edit1.Text := string(TComboBox(Sender).Items.Objects[idx]);
end;
理论上就是这样，好久没写代码了，自己试试看