Exportar p/ arquivo txt

Question

Ol� gostaria de saber se algu�m sabe como eu fa�o pra exportar o conte�do de um campo na tabela por exemplo o email de todos os cadastrados num arquivo txt, e com o registro um em baixo do outro.

desde j� agrade�o.

Anonymous · Answer

Fiz um comp. para isto veja emwww.joaomorais.com.br[]�s...

Leandronanet · Answer

[quote:16bc58b804=�Motta�]Fiz um comp. para isto veja emwww.joaomorais.com.br[]�s[/quote:16bc58b804]n�o achei......

Aroldo Zanela · Answer

- Coloque dois objetos TTable no formul�rio e um TButton;
- Na primeira table deve-se alterar as seguintes propriedades:

DatabaseName -> informar o alias ou diret�rio da tabela paradox;
Name -> Nome do objeto table, por exemplo: tbParadox;
TableName -> Nome da tabela paradox de origem (leitura);

- Na segunda table deve-se alterar as seguintes propriedades:

DatabaseName -> Informar o diret�rio onde ser� criado o txt;
Name -> Nome do objeto table, por exemplo: tbTexto
[b:26e70aa6da]StoreDefs -> true;[/b:26e70aa6da] // Aqui � o �pulo do gato�
TableName -> Nome do arquivo texto que ser� gerado (escrita);
TableType -> ttASCII;

A �nica linha de c�digo que voc� precisa escrever �:

procedure TForm1.Button1Click(Sender: TObject);
begin
tbTexto.BatchMove(tbParadox,batCopy);
end;

Veja o DFM constru�do para o exemplo:

Basta criar um novo projeto, copiar o c�digo abaixo (marcar e CTRL C), ir para o projeto (vendo o formul�rio) e pressionar CTRL V para �desenhar� o exemplo.

  object Button1: TButton
    Left = 80
    Top = 164
    Width = 75
    Height = 25
    Caption = �Button1�
    TabOrder = 0
    OnClick = Button1Click
  end
  object tbParadox: TTable
    DatabaseName = �DBDEMOS�
    TableName = �country.db�
    Left = 110
    Top = 72
  end
  object tbTexto: TTable
    DatabaseName = �C:\WINDOWS\TEMP�
    StoreDefs = True
    TableName = �ARQUIVO.TXT�
    TableType = ttASCII
    Left = 278
    Top = 70
  end

F�rum Exportar p/ arquivo txt #149776