Fórum Número de linhas? #181637

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;