abrir arquivo .txt

Delphi

01/09/2006

Boa noite, galera. Alguem sabe como ler um arquivo txt, uma linha por vez?
Obrigado.


Rogerio_pavan

Rogerio_pavan

Curtidas 0

Respostas

Rjun

Rjun

01/09/2006

Tem um monte de tópico sobre isso. Carregue seu arquivo em um TStringList.


GOSTEI 0
Arc@njo

Arc@njo

01/09/2006

Carregar o arquivo em uma StringList é o mais rapido :lol: , porem ha casos em que o arquivo a ser carregado é muito grande :cry: o que faz com que o StringList não carregue completamente o arquivo (bom pelo menos nos meus testes no D7 ele carregou cerca de 1447 linhas :( , talvez ja tenham corrigido isto, mas como não mais usei StringList não sei ao certo se corrigiram :oops: ).

Bom mas a solução que encontrei para o problema de arquivos muito grandes foi esta:

Procedure LeArquivo(NomeArquivo : String) ;
Var F : TextFile;
    Linha : String;
Begin
  AssignFile(F, NomeArquivo);  
  Try
    Reset(F);
    While Not Eoln(F) Do
    Begin
      Readln(F, Linha);
      // Aqui voce trabalha cada linha do arquivo
    End;
  Finally
    CloseFile(F);
  End;
End;


Espero ter ajudado.


GOSTEI 0
POSTAR