Db To Txt

[Guest - Marcos -]

Por favor estou precisando de duas Rotinas:

Uma que transforme um txt em tabela do paradox, e outra que transforme uma tabela em txt.

tem um arquivo que encontrei em mutios sites mas não funciona.

procedure TForm1.BitBtn1Click(Sender: TObject);

var

TXT : TextFile;

Entrada: String;

Begin

AssignFile(TXT,Çliente.TXT’);

Reset(TXT);

While not Eoln(TXT) do

Begin

ReadLn(TXT,Entrada);

Table1.Insert;

Table1Codigo.Value:= Copy(Entrada,01,05);

Table1Nome.Value:= 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.Value + Table1Nome.Value);

Table1.Next;

End;

CloseFile(F);

End;

por favor alguém me ajude!!!

[Guest - Marcos -]

encontrei o erro:

errado >> Writein(F, Table1Codigo.Value + Table1Nome.Value);

certo >> WriteLn(F, Table1Codigo.Value + Table1Nome.Value);

[bolomaster]

cara já que você resolveu estou fechando o tópico abraços e não perca a oportunidade de se cadastrar e participar desta comunidade ...

abraços

Rafael Marciano