Fórum Como montar um arquivo TXT com os dados de um BD??? #220245

Colega,

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

//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.