如何将listbox显示一个表里的所有字段？我的别名是111，表名是book.

Question

  with DATAMODULE1.DATABase1 do //连接别名//
  begin
    Connected := false;
    AliasName := ListBox1.Items[ListBox1.itemindex];//选择别名    try
      LoginPrompt := true;
      Connected := true;
      Session.GetTableNames(AliasName,'',false,false,ListBox1.Items);//获取表名并加入到listbox中
    except
      Application.Messagebox(Pchar('无法连接数据库,别名' + AliasName),
        Pchar('警告'),mb_ok);
      Abort;
    end;
  end;获取了表名之后，可以通过循环得到字段名称：
for I := 0 to table.fieldcount - 1 do
begin
  listbox1.items.add(table.fields[i].name)
end;

Answer 1

Table1 := TTable.Create(nil);
Table1.DatabaseName := '111';
Table1.TableName := 'book';
Table1.FieldDefs.Update; // 取字段信息ListBox.Items.Clear; // 先清除
for i:=0 to Table1.FieldDefs.Count-1 do
  ListBox.Items.Add( Table1.FieldDefs[i].FieldName ); // 加入每一个字段信息Table1.Free; // 释放临时表变量，如果你用的是非临时创建的表，就不必释放了