Lendo Arquivo

Question

:(  :(  Pessoal estou lendo um arquivo txt. e entao eu quero que no momento da leitura ele mostrasse o processamento atraves de um gauge e entao eu estou utilizando estes dois comandos. que me indicar...

Carnette · Answer

Meu bruxo...tira a linhaiFileLength := FileSeek(iFileHandle,0,2)/40 e na linha s� faltou o ponto e virgula// � aqui o gauge Gauge1.Maxvalue := Trunc( FileSeek(iArquivo,0,2)/40) ;//...

Anonymous · Answer

[quote:8a4d3e0d12=�Silvio�]:(  :(  Pessoal estou lendo um arquivo txt. e entao eu quero que no momento da leitura ele mostrasse o processamento atraves de um gauge e entao eu estou utilizando estes dois comandos. que me indicaram no clube Mas esta dando o erro. desclaracao nao identificada alguem pode me ajudar   :lol: iFileLength := FileSeek(iFileHandle,0,2)/40 Gauge1.Maxvalue := Trunc( FileSeek(iArquivo,0,2)/40)[/quote:8a4d3e0d12]Para obter um handle (�al�a�) de aquivo � necess�rio criar ou abrir um aquivo. Veja no exemplo que mandei anteriormente.iFileHandle := FileOpen...iFileLength := FileSeek(iFileHandle,0,2)/40...