Como obter o n�mero de linhas de um arquivo txt?

Question

Ol�!Eu gostaria de saber como obter o n�mero de linhas de um arquivo txt?Valeu!Angelo...

Anonymous · Answer

Ser� que algu�m pode ajudar?Valeu!...

Carlos Filho · Answer

como exemplo, coloque isso no evento click de um bot�o qualquer e certifique-se de que um arquivo TXT exista no mesmo diret�rio da aplica��o...

var
Arquivo: TStringList;
NdeLinha: Cardinal;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(�Arquivo.TXT�);
NdeLinha := Arquivo.Count;
Arquivo.Free

ShowMessage(�Seu arquivo tem� + NdeLinha);
end;

Basta voc� entender o c�digo e adapta-lo a suas necessidades!

Carlos Filho · Answer

[quote:cae4dd0701=��erek Wildstar�]como exemplo, coloque isso no evento click de um bot�o qualquer e certifique-se de que um arquivo TXT exista no mesmo diret�rio da aplica��o...

var
Arquivo: TStringList;
NdeLinha: Cardinal;
begin
Arquivo := TStringList.Create;
Arquivo.LoadFromFile(�Arquivo.TXT�);
NdeLinha := Arquivo.Count;
Arquivo.Free

ShowMessage(�Seu arquivo tem� + IntToStr(NdeLinha));
end;

Basta voc� entender o c�digo e adapta-lo a suas necessidades![/quote:cae4dd0701]

Esqueci de converter Inteiro pra String no meu exemplo. Acima est� o correto!
IntToStr(NdeLinha)

Aroldo Zanela · Answer

[quote:831ff8fcbb=�Angelo�]Ol�!Eu gostaria de saber como obter o n�mero de linhas de um arquivo txt?Valeu!Angelo[/quote:831ff8fcbb]Angelo,Se for um arquivo de tamanho fixo, ou seja, todas linhas tem mesmo n�mero de bytes, voc� pode pegar o tamanho do arquivo e dividir pelo comprimento em bytes das linhas, considerando CR e LF de cada linha, e podendo ter ou n�o uma marca de final de arquivo ESC26 (Ctrl F).Use FileSeek para pegar o tamanho total, por exemplo:[code:1:831ff8fcbb]The following code positions the file pointer at the end of a file: (t� no help)if FileSeek(MyFileHandle,0,2) = HFILE_ERROR then  HandleFileErrorelse  AppendStuff;[/code:1:831ff8fcbb]...

Anonymous · Answer

Agrade�o de cora��o ao pessoal que me deu uma m�o!Valeu gente, sempre que puder, pode contar comigo!Angelo...

F�rum Como obter o n�mero de linhas de um arquivo txt? #146309