Contar linhas TXT

Question

Algu�m sabe como posso contar a quantidade de linhas existentes em um arquivo TXT. :lol:  :lol:...

Rjun · Answer

[code:1:47aaba9317]var  Arquivo: TStringList;  NLinhas: Integer;begin  Arquivo := TStringList.Create();  try    Arquivo.LoadFromFile(�Arquivo.Txt�);    NLinhas := Arquivo.Count - 1;  finally    FreeAndNil(Arquivo);  end;end;[/code:1:47aaba9317]...

Demetrius · Answer

:D  :D  :D Agrade�o a sua aten��o, a sua ajuda de ontem sobre a importa��o de txt foi �tima e muito obrigado novamente pela ajuda de hoje. :mrgreen:  :mrgreen:...

Jairroberto · Answer

[quote:98fdbc017e=�Rjun�][code:1:98fdbc017e]var  Arquivo: TStringList;  NLinhas: Integer;begin  Arquivo := TStringList.Create();  try    Arquivo.LoadFromFile(�Arquivo.Txt�);    NLinhas := Arquivo.Count - 1;  finally    FreeAndNil(Arquivo);  end;end;[/code:1:98fdbc017e][/quote:98fdbc017e]Eu s� alteraria o seguinte na resposta do Rog�rio:[code:1:98fdbc017e]    NLinhas := Arquivo.Count;[/code:1:98fdbc017e]Considera-se uma linha a menos nos la�os de leitura do TStringList porque ele tem base 0 (zero).Um abra�o,Jair...

F�rum Contar linhas TXT #287023