Fórum Quantidade de linhas #311342
01/02/2006
0
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
Se alguém puder dar uma dica de como pegar o número de linhas do arquivo já ajudará bastante.
Obrigado
Andrew
Curtir tópico
+ 0
Responder
Posts
01/02/2006
Michael
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]:
Para montar a barra de progresso basta realizar esta conta: (LinhaAtual / TotalLinhas) * 100.
[]´s
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)