Progress bar

Delphi

10/03/2004

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?


Mcd

Mcd

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

10/03/2004

Tente assim:

Para ver o tamanho do ArqTxt.

with TFileStream.Create(ArqTxt, fmOpenRead or fmShareExclusive) do
try
   Gauge1.MaxValue := Size;
finally
   Free;
end;



GOSTEI 0
POSTAR