Nº Linhas de um Arquivo TXT - Urgente...
21/09/2004
0
Valeu ....
Diegus
Posts
21/09/2004
Beppe
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;
21/09/2004
Mago M3rl1n
var
arquivo: TStringList;
begin
Arquivo := TStringList.Create;
try
Arquivo.LoadFromFile(Nome do arquivo texto);
ProgressBar.MaxValue := Arquivo.Count;
finally
FreeAndNil(Arquivo);
end;
21/09/2004
Diegus
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?
21/09/2004
Aroldo Zanela
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.
Clique aqui para fazer login e interagir na Comunidade :)