Nº Linhas de um Arquivo TXT - Urgente...
Como faço pra jogar no MaxValue de um ProgressBar o nº de linhas de um arquivo txt ?
Valeu ....
Valeu ....
Diegus
Curtidas 0
Respostas
Beppe
21/09/2004
Crie uma string list:
Se você já tiver uma string list criada com o conteúdo, ou então em um memo, pode usar a própria:
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:
ProgressBar1.MaxValue := Memo1.Lines.Count;
GOSTEI 0
Mago M3rl1n
21/09/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;
var
arquivo: TStringList;
begin
Arquivo := TStringList.Create;
try
Arquivo.LoadFromFile(Nome do arquivo texto);
ProgressBar.MaxValue := Arquivo.Count;
finally
FreeAndNil(Arquivo);
end;
GOSTEI 0
Diegus
21/09/2004
[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?
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?
GOSTEI 0
Aroldo Zanela
21/09/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.
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.
GOSTEI 0