Contar linhas TXT

Delphi

05/07/2005

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

:lol: :lol:


Demetrius

Demetrius

Curtidas 0

Respostas

Rjun

Rjun

05/07/2005

var
  Arquivo: TStringList;
  NLinhas: Integer;
begin
  Arquivo := TStringList.Create();
  try
    Arquivo.LoadFromFile(´Arquivo.Txt´);
    NLinhas := Arquivo.Count - 1;
  finally
    FreeAndNil(Arquivo);
  end;
end;



GOSTEI 0
Demetrius

Demetrius

05/07/2005

: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:


GOSTEI 0
Jairroberto

Jairroberto

05/07/2005

var
  Arquivo: TStringList;
  NLinhas: Integer;
begin
  Arquivo := TStringList.Create();
  try
    Arquivo.LoadFromFile(´Arquivo.Txt´);
    NLinhas := Arquivo.Count - 1;
  finally
    FreeAndNil(Arquivo);
  end;
end;


Eu só alteraria o seguinte na resposta do Rogério:
    NLinhas := Arquivo.Count;


Considera-se uma linha a menos nos laços de leitura do TStringList porque ele tem base 0 (zero).

Um abraço,
Jair


GOSTEI 0
POSTAR