N� Linhas de um Arquivo TXT - Urgente...

Question

Como fa�o pra jogar no MaxValue de um ProgressBar o n� de linhas de um arquivo txt ?Valeu .......

Beppe · Answer

Crie uma string list:[code:1:8bf11f35ae]with TStringList.Create dotry  LoadFromFile(Nome_Do_Arquivo);  ProgressBar1.MaxValue := Count;finally  Free;end;[/code:1:8bf11f35ae]Se voc� j� tiver uma string list criada com o conte�do, ou ent�o em um memo, pode usar a pr�pria:[code:1:8bf11f35ae]ProgressBar1.MaxValue := Memo1.Lines.Count;[/code:1:8bf11f35ae]...

Mago M3rl1n · Answer

Voce pode ler o arquivo para uma TStringlist e setar o MaxValue com a propriedade Count da TStringList.

var
arquivo: TStringList;
begin
Arquivo := TStringList.Create;
try
Arquivo.LoadFromFile(Nome do arquivo texto);
ProgressBar.MaxValue := Arquivo.Count;
finally
FreeAndNil(Arquivo);
end;

Diegus · Answer

[quote:cc90149710=�Mago M3rl1n�]Voce pode ler o arquivo para uma TStringlist e setar o MaxValue com a propriedade Count da TStringList.

var
arquivo: TStringList;
begin
Arquivo := TStringList.Create;
try
Arquivo.LoadFromFile(Nome do arquivo texto);
ProgressBar.MaxValue := Arquivo.Count;
finally
FreeAndNil(Arquivo);
end;[/quote:cc90149710]

E usando um TextFile? Como faria? Essas respostas ja me ajudaram... mas gostaria de saber com TextFile?

Aroldo Zanela · Answer

Colega,Com TextFile � necess�rio ler todo o arquivo e incrementar um contador linha a linha. No entanto, se o arquivo possui registros de tamanho fixo, � pegar o total de bytes e dividir pelo comprimento do registro + CR e LF....