Fórum Erro ao Obter total de linhas de um Arquivo txt #297773
29/09/2005
0
Galera estou usando essa pequena função que criei para obter o total de linhas em um arquivo txt que estou importando de um arquivo TXT para o Piradox utilizado com D6. o retorno da função eu atribuo ao MaxValue do Gauge.
Como posso fazer para Obter o Processamento dos dados já que o Gauge mudou.
//antes eu fazia assim
Gauge.Progress:= Gauge.Progress + 1
e agora oq posso fazer jah se eu tirar a verificação
ele gera um erro
var Arquivo: TStringList; begin Arquivo := TStringList.Create(); try Arquivo.LoadFromFile(PathArquivo); Result := Arquivo.Count; //- 1; If Result < 51 Then //foi necessário fazer essa verifica Result:= Result * 51; finally FreeAndNil(Arquivo); end;
Como posso fazer para Obter o Processamento dos dados já que o Gauge mudou.
//antes eu fazia assim
Gauge.Progress:= Gauge.Progress + 1
e agora oq posso fazer jah se eu tirar a verificação
If Result < 51 Then //foi necessário fazer essa verifica Result:= Result * 51;
ele gera um erro
Crashovewrite
Curtir tópico
+ 0
Responder
Posts
29/09/2005
Rjun
If Result < 51 Then //foi necessário fazer essa verifica
Result:= Result * 51;
Pra que serve essa instrução? Qual o problema que você esta tendo? Não entendi o que você está querendo fazer.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)