Obter nomes dos campos de uma tabela no Delphi

Inclua na seção uses:dbTables, Classes, Forms

A função abaixo obtém os nomes de todos os campos de uma
tabela do banco de dados.



procedure tbGetFieldNames(const DBName, TblName: string;
  List: TStringList);
var
  I: integer;
begin
  List.Clear;
  with TTable.Create(Application) do
  try
    DatabaseName := DBName;
    TableName := TblName;
    with FieldDefs do begin
      Update;
      for I := 0 to Count -1 do
        List.Add(Items[I].Name);
    end;
  finally
    Free;
  end;
end;

=== Exemplo de uso ===

- Coloque um TMemo e um TButton no Form;
- Coloque o código abaixo no evento OnClick do Button:

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
begin
  List := TStringList.Create;
  try
    tbGetFieldNames(Edit1.Text, Edit2.Text, List);
    Memo1.Lines.Assign(List);
  finally
    List.Free;
  end;
end;