怎么得到某个表的一行的所有字段值（）

如何得到某个表的一行的所有字段值（在线等）
zz=adoquer-> FieldByName( "id ")-> AsVariant;

zz=adoquer-> FieldByName( "name ")-> AsVariant;
                  ;
                  ;
                  ;

难到得这样吗？？　如果我的表有三十个字段，我不得写三十遍呀？？　大家有简单的方法吗？？

[解决办法]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int k=ADOQuery1-> FieldCount;
for(int i=0;i <k;i++)
ShowMessage(ADOQuery1-> Fields-> Fields[i]-> Name);
}
[解决办法]
lt-> Clear();
for (int i=0;i <tmpmQuery-> FieldList-> Count;i++)
lt-> Add(tmpmQuery-> Fields-> Fields[i]-> AsString);