Número de linhas?

Delphi

11/09/2003

Como obter o número de linhas em um arquivo texto?


Earmarques

Earmarques

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

11/09/2003

Você pode tentar o seguinte:

procedure exibelinhas( nomeDoArquivo: String ); 
var arq: TextFile; 
linha: String; 
n: Integer;
begin 
  AssignFile ( arq, nomeDoArquivo ); 
  Reset ( arq ); 
  ReadLn ( arq, linha ); 
  n:=1;
  while not Eof ( arq ) do 
  begin 
    ReadLn ( arq, linha ); 
    n:=n+1;
  end; 
  CloseFile ( arq ); 
  Showmessage(´O arquivo possui ´+inttostr(n)+´ linhas´);
end;


Não testei, mas creio que atenda ao que você precisa.


GOSTEI 0
POSTAR