通过怎样技巧(最简洁的代码)实现如下目的:

Question

procedure yourselect(tablename:string);
begin
   a1:='select * from '+tablename;
   query1.close;
   query1.sql.clear;
   query1.sql.add(a1)
   query1.open;end;
查询是调用：
yourselect(combobox1.text);

Answer 1

a1:='select * from ' 
case combobox1.text of
 '语文':a1:=a1+'chinese';
 '数学':a1:=a1+'maths'
  ……
end;

Answer 2

没有什么好办法的，关键是你的ComboBox的文字转换成英文的问题，除非你有对照表，要不然只有自己写代码控制了。

Answer 3

把combobox1里的STRINGLIST和你的数据表相关信息做一个关联：
List[ 语文=CHINESE
  数学=MATHS
  英语=ENGLISH
  。 
  。
  。 
  。
]
然后这样写：
'select * from '+List.values[combobox1.text];

Answer 4

定义String字符串数组 kecheng，初始化为'chinese','maths','englishs'
a1:='select * from '+kecheng[combobox1.ItemIndex+1]