Buscar por:

Listando os campos da tabela em um memo

Código

{A implementação da função abaixo permite inserir os campos de uma tabela num componente TMemo. Para que a função funcione é necessário que as units StdCtrls e DbTables tenham sido declaradas.

Os campos que serão listados, são aqueles que foram declarados através da operação de duplo clique no componente Table e opção ADD Fields.}

Procedure ListaCampos(TB:Ttable;M:Tmemo); 

Begin 

M.Lines.Assign(TB.ListField); 

End; //Exemplo:

Procedure TForm1.Button1Click(Sender:TObject); 

Begin 

ListaCampos(Table1,Memo1); 

end;