Ir para conteúdo
Fórum Script Brasil
  • 0

Db To Txt


Guest - Marcos -

Pergunta

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!!!

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...