小弟刚学delphi，请教这句代码错在哪里？

Question

showmessage(query1.FieldList.Names[1]);
运行后报错： Project Project1.exe raised exception class EStringListError with message 'List index out of bouds(1)'.Process stopped.Use Step or Run to continue.
请各位大哥指点

Answer 1

楼主，你没有打开Query1。
所以数组为空。

Answer 2

showmessage(query1.FieldList.Names[1]);前面写上query.open;

Answer 3

还是报错啊
Project Project1.exe raised exception class EDatabaseError with message'Query1:NO SQL statement available'.Process stopped.

Answer 4

你的query里面没有sql语句怎么运行啊？没结果怎么读字段名啊？

Answer 5

那我想把字段show出来，应该怎么写呢，请指点

Answer 6

首选你要知道你要读什么表格的字段，然后定SQL语句，写到query里，在程序中open,这时候
showmessage(query1.FieldList.Names[1]);才有意义。
建议你先在查询分析器里，写好你想要的sql语句。

Answer 7

with Query1 do
  begin
    close;
    sql.Clear;
    sql.add('select * from scer');
    open
    showmessage(query1.FieldList.Names[1]);
  end;
还是错啊，晕到，哎，我是否太笨了点啊，555555555555

Answer 8

with Query1 do
  begin
    close;
    sql.Clear;
    sql.add('select * from scer');
    open;
    showmessage(query1.FieldList.Names[1]);
  end;
谁来帮帮小弟啊，这样还是错啊

Answer 9

with Query1 do
  begin
    close;
    sql.Clear;
    sql.add('select * from scer');
    open;//要加“;”号，嗯
    showmessage(query1.FieldList.Names[1]);
  end;

Answer 10

with Query1 do
  begin
    close;
    sql.Clear;
    sql.add('select * from scer');
    open
    ShowMessage(ADOQueryOrder0.Fields[1].FieldName);
  end;

Answer 11

写错了，这样才对
with Query1 do
  begin
    close;
    sql.Clear;
    sql.add('select * from scer');
    open
    ShowMessage(Fields[1].FieldName);
  end;