Arquivo TXT! URGENTE! Quantas Linhas?

Question

Ol� gostaria de saber como fa�o para contar quantas linhas tem em um arquivo txt......

Anonymous · Answer

[quote:be123636cf=�zacca�]Ol� gostaria de saber como fa�o para contar quantas linhas tem em um arquivo txt...[/quote:be123636cf]tipo c tem q procurar por um EOF � um caracter especialend of filenum lembro como...

Zacca · Answer

[quote:f8d3ca94f1=�zacca�]Ol� gostaria de saber como fa�o para contar quantas linhas tem em um arquivo txt...[/quote:f8d3ca94f1]desculpe gostaria de saber exatamente quantas linhas tem o arquivo......

Zacca · Answer

[quote:847bc77bf7=�zacca�][quote:847bc77bf7=�zacca�]Ol� gostaria de saber como fa�o para contar quantas linhas tem em um arquivo txt...[/quote:847bc77bf7]desculpe gostaria de saber exatamente quantas linhas tem o arquivo...[/quote:847bc77bf7]PRECISO SABER TB COMO FA�O PARA LER LINHA A LINHA NO ARQUIVO TXT.......

Okama · Answer

Var ARQUIVO:TextFile; I:Integer; Linha:String;
begin
OpenDialog1.Execute;
AssignFile(Arquivo,Opendialog1.Filename);
Reset(Arquivo);
I:= 0;
While not Eof(Arquivo) do begin
ReadLn(Arquivo,Linha);
Showmessage(�Linha do Arquivo: �+Linha);
inc(I);
end;

CloseFile(Arquivo);
Showmessage( �Quantidade de linhas: �+inttoStr(I));

end;