Exportar p/ arquivo txt

Delphi

26/03/2003

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.


Leandronanet

Leandronanet

Curtidas 0

Respostas

Anonymous

Anonymous

26/03/2003

Fiz um comp. para isto veja em

www.joaomorais.com.br

[]´s


GOSTEI 0
Leandronanet

Leandronanet

26/03/2003

Fiz um comp. para isto veja em www.joaomorais.com.br []´s


não achei...


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

26/03/2003

- 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



GOSTEI 0
POSTAR