如何将表中的字段名送入LISTBOX？？

Question

有一数据表，请问如何用ADOTABLE，将表中的字段名送入LISTBOX？请给个例子好吗？

Answer 1

var
   i: Integer;
   Info: String;
begin
   Table1.Active:=true;
   for i := 0 to Table1.FieldCount - 1 do
   begin
   ListBox1.Items.Add (Table1.Fields[i].FieldName);   end;

Answer 2

楼上说的是用BDE连数据库，如果用DBEXPRESS连数据库呢？？？？

Answer 3

// 一楼的不错
var
   i: Integer;
begin
   if not Table1.Active then Exit;  // 如果Table1没有打开   for i := 0 to Table1.FieldCount - 1 do
      ListBox1.Items.Add (Table1.Fields[i].FieldName);