ActiveDelphi

[mastersoftware]

Bom dia pessoal,
Tenho uma tabela do banco de dados para escrever em um arquivo texto, que tem 6 milhões de linhas.
Da seguinte maneira abaixo :

While not tabvendas.eof do
begin
AssignFile(arqBackup, FsNomeArquivo);
if not FileExists(FsNomeArquivo) then
Rewrite(arqBackup)
else
Append(arqBackup);


WriteLn(arqBackup, sStringSql);

tabvendas.next;
end;

Realizando testes, descobri que este aquivo demora demais pra ser escrito linha a linha, ( cerca de 6 horas ).
Gostaria de saber com o pessoal do fórum.
Existe alguma maneira que consiga realizar esta tarefa de uma forma mais rápida ?

Obrigado.

[anderbelluno]

StringList e faz um SaveToFile

[johnny-walker]

Amigo, infelizmente o strinlist não é a melhor forma para isto, tem um artigo no the club magazine, lá tem uma classe chamada FASFILE, tente com ela.



Tente este site, tem uma solução:
http://delphidabbler.com/tips/169

http://www.theclub.com.br/Restrito/Revistas/201610/TFIL1610.ASPX
http://www.theclub.com.br/Restrito/Revistas/201502/fast1502.aspx

https://stackoverflow.com/questions/17712813/the-best-solution-to-process-the-huge-text-file-data-in-delphi-7



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[mastersoftware]

Show vou verificar.

Obrigado.

[marcieldeg]