Leitura de arquivos TXT

Question

Alguem possui uma dica para que a leitura de arquivos txt atrav�s do delphi seja r�pida? Tenho realizado testes e verifiquei que este processo vai ficando lento.Desde j� agrade�o....

Motta · Answer

Arquivos muito grandes ?Esta dica � comum , d� uma pesquisada e ver� muitas poss�veis solu��es....

Afarias · Answer

[code:1:8036c41bc6]var  f: TextFile;  s: string;begin  AssignFile(f, �c:arquivo.txt�);  Reset(f);  try    while not Eof(f) do    begin      Readln(f, s);      { fa�a algo com s }    end;  finally    CloseFile(f);  end;end;[/code:1:8036c41bc6]T+...

Rjun · Answer

Se os arquivos n�o forem muito grande, voc� pode usar um TStringList....

Alex Maia · Answer

Preciso para leitura de arquivos grandes, pois s�o arquivos de retorno dos bancos. Alguma id�ia??...

Rjun · Answer

Bom, n�o sei o q vc considera como grande. Fa�a o teste com TStringList e tire suas pr�prias conclus�es.

var
  Arquivo: TStringList;
  i: Integer;
begin
  Arquivo := TStringList.Create;
  try
    Arquivo.LoadFromFile(NomedoArquivo.Txt);
    for i := 0 to Arquivo.Count - 1 do
    begin
      // Para acessar uma linha do arquivo use
      // Arquivo.Strings[i];

      ShowMessage(Arquivo.Strings[i]);    
    end;
  finally
    FreeAndNil(Arquivo);
  end;
end;

Rogick · Answer

Vc pode usar a fun��o FileOpen para abrir, FileRead para ler a linha e FileClose para fechar o arquivo.

Como neste exemplo:

var
  arqHanlde: Integer;
  buffer: array[0..401] of Char; // Se o arquivo for CNAB400
begin
   arqHandle := FileOpen(arquivo); // Abrir o arquivo
   FileRead(arqHandle, buffer, 10); // Fazer as leituras que quiser
   ....
   FileClose(arqHandle); // Fechar o arquivo
end;

Isso funciona bem.

Espero ter ajudado

Dedi · Answer

Vc pode tambem colocar a rotina de leitura e tratamento de texto em uma thread com isso o aplicativo ganha um pouco mais de performace. se vc tem duvida sobre thread procure aqui no forum, tem muita informa��o sobre o assunto.

F�rum Leitura de arquivos TXT #295897