floating point division by zero

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

Respostas

24/02/2006

Rjun

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;



Responder Citar