Arquivo de Texto, Quantidade de Linha [Delphi]

Delphi

16/09/2014

Ola.
Preciso saber a quantidade de linha de um arquivo .TXT
Em media esse arquivo vai ter 420.000 Linhas

Pois quer colocar um Progres Bar para mostrar ao usuario quanto falta para terminar.

ha a possibilidade de fazer isso sem ter que percorrer o arquivo(Pois como disse, ele eh muito grande).


Obrigado.
Vanderlan Brandao

Vanderlan Brandao

Curtidas 0

Melhor post

Wanderson Cortes

Wanderson Cortes

17/09/2014

Pode usar o StringList.

var
   arquivo : TStringList;
   numLinhas: Integer;
begin
   arquivo := TStringList.Create;
   arquivo.loadFromFile('C:\arquivo.txt');
   numLinhas := arquivo.Count;
end;
GOSTEI 1

Mais Respostas

Vanderlan Brandao

Vanderlan Brandao

16/09/2014

Muito obrigado.

Deu certíssimo.

Vlw Abço.

Como coloco que esse tópico foi respondido??
GOSTEI 0
POSTAR