有没有象vb或pb中的choose函数呢?

Question

有没有象pb中的choose函数一样的东东呢？
也就是
case choose 姓名
   case '王'
       .....
   case '陈'
............

Answer 1

case 姓名 of
  '王':
  '陈':
  else:
end
你可以查一下DELPHI的帮助文件，查找CASE

Answer 2

delphi的case中的selectorExpression只能是an ordinal type

Answer 3

怪不得我在帮助中
查choose一直没找到真笨！！

Answer 4

Case Of
但是不支持String的,必须是有序类型D8就可以,DotNet嘛,呵呵

Answer 5

Choose Case gs_erp
Case '1'
Case '2' //U8
// st_1.Text = '正在接收物料信息......'
// wf_pip_data("pipe_inv","物料信息")
st_1.Text = '正在接收部门信息......'
wf_pip_data("pip_depart1","部门信息")
st_1.Text = '正在接收客户信息......'
wf_pip_data("pip_uf_cus","客户信息")
st_1.Text = '正在接收供应商信息......'
wf_pip_data("pipe_vendor1","供应商信息")
st_1.Text = '正在接收仓库信息......'
wf_pip_data("pipe_warehouse","仓库信息")
st_1.Text = '正在接收收发类别信息......'
wf_pip_data("pip_rdstyle","收发类别")
st_1.Text = '正在接收人员信息......'
wf_pip_data("pip_person1","人员信息")
st_1.Text = '正在接收科目信息......'
wf_pip_data("pip_code","科目员信息")
// f_exe_sql("",""," sp_edit_base_info '" + shop_code+"','U8'",3)