Erro ao Obter total de linhas de um Arquivo txt

Delphi

29/09/2005

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.

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

Crashovewrite

Curtidas 0

Respostas

Rjun

Rjun

29/09/2005

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.


GOSTEI 0
POSTAR