Quantidade de linhas

Delphi

01/02/2006

Pessol, tenho um arquivo texto com aproximadamente 300 linhas, só q esse número não é fixo, ele vai variar, vai depender do número de arquivos do meus dataset, gostaria de saber como eu faço para contar o número de linhas desse arquivo texto e montar uma barra de progresso?

Se alguém puder dar uma dica de como pegar o número de linhas do arquivo já ajudará bastante.

Obrigado


Andrew

Andrew

Curtidas 0

Respostas

Michael

Michael

01/02/2006

Olá!

Para saber quantas linhas um arquivo texto tem vc precisa lê-lo até o fim. Para isso a maneira mais simples é usar um [b:342a3be35b]TStringList[/b:342a3be35b]:

function TotalDeLinhas(const NomeArquivo: TFileName): Integer;
var
  Arquivo: TStringList;
begin
  Result := -1;  

  if not FileExists(NomeArquivo) then
    Exit;

  Arquivo := TStringList.Create;
  try
    Arquivo.LoadFromFile(NomeArquivo);
    Result := Arquivo.Count;
  finally
    Arquivo.Free;
  end;
end;


Para montar a barra de progresso basta realizar esta conta: (LinhaAtual / TotalLinhas) * 100.

[]´s


GOSTEI 0
POSTAR