在Dephi中要实现以下功能这句怎么写?

Question

 ADOQuery1.fieldbyname('字段名').Asinteger:=strtoint(Edit1.text);  问题是我要字段名为变量,,根据条件不同'字段名'要取不同值.   
    我的table结构如下:      goods_name      gh_price    zd_price  fg_price  .....
      红酒1           12            13       10
      红酒2           12            11       8 
          ..............   以上的句子根据条件的不同分别可为:
 
或者   ADOQuery1.fieldbyname('gh_price').Asinteger
或者   ADOQuery1.fieldbyname('zd_price').Asinteger
或者   ADOQuery1.fieldbyname('fg_price').Asinteger  要求只能写一句.

Answer 1

你就设置一个变量就可以了啊
adoquery1.fieldbyname(a).asinteger;
a根据你的要求来变换

Answer 2

var
  sFieldName: String;
begin
  sFieldName := ...;
  AdoQuery1[sFieldName];
end;

Answer 3

var
  i: Integer;//i是字段的索引号，从0开始起。
ADOQuery1.Fields[i].Asinteger