请问如何根据给出的表名，得到其所属的字段列表？！谢谢

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  ListBox1.Items.clear;
  if not Table1.Active then
    Table1.open;
  for i:=0 to Table1.FieldCount-1 do
  begin
    ListBox1.Items.Add(Table1.Fields[i].fieldname);
  end;end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Table1.Active then
    Table1.open;
  Table1.GetFieldNames(Listbox1.Items);
end;

Answer 2

访问数据表的FieldCount及FieldDefs
可以得到字段列表。

Answer 3

ListBox1.Items.Text := Table1.Fields.Text

Answer 4

那么和这个tabel1实现以上功能，还要有其他控制来配合吗，具体怎么做呢

Answer 5

scripting(scripting)　:
您好： 
    感谢您的来信，我想问一下，具体怎么做，你能给一个例子给吗？最好能告诉怎么能在delphi提供的demos中比较快的找到我想要的例子，谢谢

Answer 6

直接用一个ListBox1.Items:=table1.FieldList就哦