Guest - Marcos - Postado Março 14, 2004 Denunciar Share Postado Março 14, 2004 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!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest - Marcos - Postado Março 14, 2004 Denunciar Share Postado Março 14, 2004 encontrei o erro:errado >> Writein(F, Table1Codigo.Value + Table1Nome.Value);certo >> WriteLn(F, Table1Codigo.Value + Table1Nome.Value); Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 bolomaster Postado Março 15, 2004 Denunciar Share Postado Março 15, 2004 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
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.