Array
(
)

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

Diegus
   - 21 set 2004

Como faço pra jogar no MaxValue de um ProgressBar o nº de linhas de um arquivo txt ?

Valeu ....


Beppe
   - 21 set 2004

Crie uma string list:
#Código

with TStringList.Create do
try
LoadFromFile(Nome_Do_Arquivo);
ProgressBar1.MaxValue := Count;
finally
Free;
end;


Se você já tiver uma string list criada com o conteúdo, ou então em um memo, pode usar a própria:
#Código
ProgressBar1.MaxValue := Memo1.Lines.Count;



Mago M3rl1n
   - 21 set 2004

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
   - 21 set 2004


Citação:
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;


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


Aroldo Zanela
   - 21 set 2004

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.