Fórum Progress bar #219573
10/03/2004
0
Estou fazendo uma importação de arquivo lendo um arquivo tipo
texto (ASC). Gostaria de mostrar na tela o progresso da importação
então estou usando o seguinte comando:
Gauge1.MaxValue:= FileSize(ArqTxt) ; // para retornar o tamanho total em bytes do arquivo
Depois no processamento faço:
Readln(ArqTxt,sLinha);
Gauge1.AddProgress(Length(sLinha)); // Pega tamanho em Bytes da linha
Porém na função FileSize está retornando um número incorreto, ou seja,
tenho um arquivo com 820 bytes e 27 linhas ele traz como retorno o número 5.
Alguem tem alguma dica sobre este erro?
texto (ASC). Gostaria de mostrar na tela o progresso da importação
então estou usando o seguinte comando:
Gauge1.MaxValue:= FileSize(ArqTxt) ; // para retornar o tamanho total em bytes do arquivo
Depois no processamento faço:
Readln(ArqTxt,sLinha);
Gauge1.AddProgress(Length(sLinha)); // Pega tamanho em Bytes da linha
Porém na função FileSize está retornando um número incorreto, ou seja,
tenho um arquivo com 820 bytes e 27 linhas ele traz como retorno o número 5.
Alguem tem alguma dica sobre este erro?
Mcd
Curtir tópico
+ 0
Responder
Posts
10/03/2004
Fabio.hc
Tente assim:
Para ver o tamanho do ArqTxt.
Para ver o tamanho do ArqTxt.
with TFileStream.Create(ArqTxt, fmOpenRead or fmShareExclusive) do try Gauge1.MaxValue := Size; finally Free; end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)