如何获取字段清单？

Question

想把一张表中的所有字段名放到listbox中，应该怎么实现？谢谢！

Answer 1

你用下面的代码来完成吧！
============================
var
  i:integer;
begin
  for i:=0 to table1.Fields.Count-1 then
  begin
    ListBox1.Items.Add(Table1.Fields[i].AsString);
  end;
end;

Answer 2

对不起。搂住，应该是这样：
var
  i:integer;
begin
  for i:=0 to Table1.FieldCount-1 do
  begin
    listBox1.Items.Add(Table1.Fields[i].DisplayName);
  end;

Answer 3

楼上的方法没有问题，也可以用query控件，同样可以取出表的所有字段名。

Answer 4

我的代码：
    lstFields.Clear;
    for i := 0 to table.Fields.Count - 1 do
    begin
      item:= lstFields.Items.Add;
      item.Caption := table.Fields.Fields[i].DisplayName;
    end;

Answer 5

var
  i_for : integer;
begin
  for i_for := 1 to DBGrid.Fields.Count do
  ListBox1.Items.Add(DBGrid.Fields[i_For].title.Caption);
End;