Fórum Arquivo Texto #331318
17/10/2006
0
Pessoal, meu BD é muito grande e preciso gerar um arquivo, para resolver o problema da lentidão resolvi filtrar por pessoas Fisicas e Juridicas.
Mas meu problema é que não estou conceguindo enviar os dados para o mesmo arquivo! Quando gero o arquivo para juridica por exemplo e depois vou gerar para física, sempre fica no arquivo apenas os dados que inseri por último!
não conheço muito sobre arquivos, não sei o que exatamente pode estar errado, mas pesso para alguém que saiba conferir se está correto.
minha idéia era a seguinte:
procedure TArquivoEquifax.GeraArquivo(InclusaoExclusao:TTipoTransacao);
begin
AssignFile(Arquivo,´c:\Arquivo.txt´); //associa o arquivo a var
if FileExists(´c:\Arquivo.txt´) // if existe
then Eof(Arquivo) // vai para o fim do arquivo
else Rewrite(Arquivo); // else cria ele
Append(Arquivo);
//nao entendi pra q serve, no help diz uma coisa q nao vi funcionando!
if rgPessoa.ItemIndex = 0
then GeraArquivoFisica(InclusaoExclusao) //escreve dados fisica
else GeraArquivoJuridica(InclusaoExclusao); //escreve dados juridica
end;
se alguém puder me ajudar fico muito grato, falta só mais isso!
vlw
Mas meu problema é que não estou conceguindo enviar os dados para o mesmo arquivo! Quando gero o arquivo para juridica por exemplo e depois vou gerar para física, sempre fica no arquivo apenas os dados que inseri por último!
não conheço muito sobre arquivos, não sei o que exatamente pode estar errado, mas pesso para alguém que saiba conferir se está correto.
minha idéia era a seguinte:
procedure TArquivoEquifax.GeraArquivo(InclusaoExclusao:TTipoTransacao);
begin
AssignFile(Arquivo,´c:\Arquivo.txt´); //associa o arquivo a var
if FileExists(´c:\Arquivo.txt´) // if existe
then Eof(Arquivo) // vai para o fim do arquivo
else Rewrite(Arquivo); // else cria ele
Append(Arquivo);
//nao entendi pra q serve, no help diz uma coisa q nao vi funcionando!
if rgPessoa.ItemIndex = 0
then GeraArquivoFisica(InclusaoExclusao) //escreve dados fisica
else GeraArquivoJuridica(InclusaoExclusao); //escreve dados juridica
end;
se alguém puder me ajudar fico muito grato, falta só mais isso!
vlw
Abdigadiga
Curtir tópico
+ 0
Responder
Posts
17/10/2006
Abdigadiga
encontrei o erro! era um problema de BIOS! escrevi errado o nome do arquivo!!!!!!!!!
e mais... o correto mesmo seria assim:
AssignFile(Arquivo,´c:\Arquivo.txt´);
if FileExists(´c:\Arquivo.txt´)
then Append(Arquivo)
else Rewrite(Arquivo);
if rgPessoa.ItemIndex = 0
then GeraArquivoFisica(InclusaoExclusao)
else GeraArquivoJuridica(InclusaoExclusao);
e mais... o correto mesmo seria assim:
AssignFile(Arquivo,´c:\Arquivo.txt´);
if FileExists(´c:\Arquivo.txt´)
then Append(Arquivo)
else Rewrite(Arquivo);
if rgPessoa.ItemIndex = 0
then GeraArquivoFisica(InclusaoExclusao)
else GeraArquivoJuridica(InclusaoExclusao);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)