Question

DELPHI 简单问题

怎么简化以下的代码，classify是combobox控件
因为风格是csOwnerDrawFixed，所以TEXT不能直接赋值
不然一句代码classify.text:=FieldByName('classify').AsString;就可以搞定
with dmdata.qry do
begin
if FieldByName('classify').AsString='原材料' then
classify.ItemIndex:=0;
if FieldByName('classify').AsString='生产物料' then
classify.ItemIndex:=1;
if FieldByName('classify').AsString='办公用品' then
classify.ItemIndex:=3;
if FieldByName('classify').AsString='生活用品' then
classify.ItemIndex:=4;
if FieldByName('classify').AsString='零配件' then
classify.ItemIndex:=5;
if FieldByName('classify').AsString='建筑' then
classify.ItemIndex:=6;
if FieldByName('classify').AsString='设备' then
classify.ItemIndex:=7;
if FieldByName('classify').AsString='维修' then
classify.ItemIndex:=8;
if FieldByName('classify').AsString='厨房' then
classify.ItemIndex:=9;
if FieldByName('classify').AsString='运输报关' then
classify.ItemIndex:=10;
if FieldByName('classify').AsString='运输费' then
classify.ItemIndex:=11;
if FieldByName('classify').AsString='车辆费' then
classify.ItemIndex:=12;
if FieldByName('classify').AsString='应酬/接待' then
classify.ItemIndex:=13;
if FieldByName('classify').AsString='福利费' then
classify.ItemIndex:=14;
if FieldByName('classify').AsString='差旅费' then
classify.ItemIndex:=15;
if FieldByName('classify').AsString='额外支出' then
classify.ItemIndex:=16;
if FieldByName('classify').AsString='其他' then
classify.ItemIndex:=17;
end;

Answer 1

基本没办法简化，因为你的判断条件太多了都不同，你上面代码要进行17次if比对.建议用if ..else ..嵌套提升程序运行效率，delphi7 swtich 不支持中文名对比，高版本没用过。如果要优化，建议把索引存入数据库，而不是对比中文，或动态生成下拉内容

偷懒点办法，就是把新数据直接添加进控件中，并selectindex

Answer 2

把“原材料”、“办公用品”之类放在一个数组或者TStringList中，通过查找字符串返回其索引号，赋给classify.ItemIndex即可。