floating point division by zero

Delphi

24/02/2006

Olha eu de novo ai pessoal.

to com o seguinte problema eu peguei um código no forum onde eu tenho o problema relatado acima

abaixo o codigo

evento on Work do IdFTP

procedure TForm1.FTPConectWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
var TaxaTransferencia: extended;
begin
ProgressBar.Position := AWorkCount;
TaxaTransferencia := AWorkCount / SecondsBetween(Time,HoraInicio);
label3.Caption:=floattostr(taxaTransferencia);
end;



valeu

Wagner


Wagnermarrane

Wagnermarrane

Curtidas 0

Respostas

Rjun

Rjun

24/02/2006

Verifique se SecondsBetween(Time,HoraInicio) é um valor maior que zero. 

procedure TForm1.FTPConectWork(ASender: TObject; AWorkMode: TWorkMode; 
  AWorkCount: Integer); 
var TaxaTransferencia: extended; 
begin 
  ProgressBar.Position := AWorkCount; 
  
  if ((SecondsBetween(Time,HoraInicio) > 0)
    TaxaTransferencia := AWorkCount / SecondsBetween(Time,HoraInicio); 
  label3.Caption:=floattostr(taxaTransferencia); 
end;



GOSTEI 0
POSTAR