Array
(
)

floating point division by zero

Wagnermarrane
   - 24 fev 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

#Código

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


Rjun
   - 24 fev 2006

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

#Código


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;