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;
O conteúdo desta página pode ajudar alguém? Compartilhe!