请教小妹一下！关于取Adoquery字段名的问题

Question

我知道用ADOQuery.FiledValues['FiledName']、 
ADOQuery1.FieldByName('Fieldname').value
等属性可以得到一条记录中对应字段的值 ，
但现在我做的程序里需要得到字段名，请问我应该怎么做呢？
（假设有一个表teacher(id,name),我想得到‘id’‘name’这两个字段名）
在线等待！！！

Answer 1

ADOQuery1.SQL.Add('select * from teacher');
  ADOQuery1.Open;
  showmessage(ADOQuery1.FieldList.Text);

Answer 2

ADOQuery1.field(1).fieldname;   //得到'id'
ADOQuery.field(2).fieldname;    //得到'name'
你试试  我是凭着记忆写的

Answer 3

var
  fieldNameList : TStringList;
begin
  fieldNameList := TStringList.Create();
  ADOQuery1.GetFieldNames(fieldNameList);   //关键
  fieldNameList.free;

Answer 4

小妹，我不要分，我要你的qq号码
procedure TForm1.Button1Click(Sender: TObject);
var
  list : Tstringlist;
begin
  ADOQuery1.close;
  ADOQuery1.sql.clear;
  ADOQuery1.SQL.Add('select * from teacher');
  ADOQuery1.Open;
  try
    list :=Tstringlist.Create;
    list.Text:= ADOQuery1.FieldList.Text;
    showmessage(list[0]+'---'+list[1]);
  finally
    freeandnil(list);
  end;
end;

Answer 5

procedure TForm1.Button2Click(Sender: TObject);
var
  list : Tstringlist;
begin
  try
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from rtu_network');
    ADOQuery1.Open;
    list:=Tstringlist.Create;
    ADOQuery1.GetFieldNames(list);
    showmessage(list[0]+'---'+list[1]);
  finally
    freeandnil(list);
  end;
end;

Answer 6

Re cdsgajxlp(新手) 
我按你教我的试了一下，对了呢！
好感谢你！我的QQ号是：187249537