Lendo Arquivo

Delphi

19/02/2003

:( :( 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)


Silvio

Silvio

Curtidas 0

Respostas

Carnette

Carnette

19/02/2003

Meu bruxo...tira a linha

iFileLength := 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) ;
//


GOSTEI 0
Anonymous

Anonymous

19/02/2003

:( :( 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)

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


GOSTEI 0
POSTAR