Como montar um arquivo TXT com os dados de um BD???

Delphi

12/03/2004

Amigos...

Sou novato em Delphi, e estou criando um programa que cadastra pedidos...

Preciso gerar um relatório em arquivo TXT que sera enviado por email, usando um intervalo de data especificado no programa.


Agradeço pela ajuda...


Rafax

Rafax

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

12/03/2004

Colega,

http://delphiforum.icft.com.br/forum/search.php


GOSTEI 0
Dgsfilho

Dgsfilho

12/03/2004

//Exemplo para fazer a conversão de arquivo .TXT para DB.
procedure TForm1.BitBtn1Click(Sender: TObject);
var TXT : TextFile;
Entrada : String;
Begin
AssignFile(TXT,‘Cliente.TXT’);
Reset(TXT);
While not Eoln(TXT) do
Begin
ReadLn(TXT,Entrada);
Table1.Insert;
Table1Codigo.AsString:= Copy(Entrada,01,05);
Table1Nome.AsString:= Copy(Entrada,06,50);
Table1.Post;
End;
CloseFile(TXT);
End;

//Exemplo para fazer conversão de arquivo DB para TXT:
Procedure TForm1.BitBtn2Click(Sender: TObject);
var F: TextFile;
I: Integer;
Begin
AssignFile(F,‘Cliente.TXT’);
Rewrite(F);
Table1.First;
While not Table1.Eof Do
Begin
Writein(F, Table1Codigo.AsString+Table1Nome.AsString);
Table1.Next;
End;
CloseFile(F);
End;

Acho que isto deve ajudar.


GOSTEI 0
POSTAR