floating point division by zero

Question

Olha eu de novo ai pessoal.to com o seguinte problema eu peguei um c�digo no forum onde eu tenho o problema relatado acimaabaixo o codigoevento on Work do IdFTP[code:1:b77e4f39ef]procedure TForm1.FTPC...

Rjun · Answer

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;