N�o apresenta erro de divis�o por zero.

Question

Pessoal boa tarde, tenho uma rotina que faz basicamente o seguinte:        try          wsComFim := ((wsQtdIni * wsComIni) - (wsQtdSai * wsComEnt)) / (wsQtdIni - wsQtdSai);          wsSemFim := ((...

Cleverson · Answer

Oh entre parenteses retorna um boolean correto?...

Claudio Ferreira · Answer

Talvez seja o ponto flutuante e que wsComFim n�o seja exatamente zero mas 0.000000000000001  por exemploTroque o tipo de wsComFim  para integer  e / por div e vai cair na exce��o...

Pa Informatica · Answer

Dentro do parentesis � tudo Real....

Pa Informatica · Answer

Dentro do parenteses � tudo Real....

Pa Informatica · Answer

Dentro do parenteses � tudo Real....

Pa Informatica · Answer

O valor � realmente 0 (zero) o proprio hint mostra....

Marcos Saffran · Answer

Bom dia Pea,criei um programa para verificar o que est� ocorrendo e, para meu espando, o c�lculo de uma divis�o de dois n�meros n�o � feito, o programa simplesmente pula a linha de comando.Portanto busquei na internet e encontrei o seguinte: [url:descricao=Evitando erro]//www.planetadelphi.com.br/dica/6886/evitando-erro-de-compara%C3%A7%C3%A3o-com-calculo-no-if-ou-no-repeat-until[/url]envio abaixo o programa para sua an�lise.procedure TForm1.Button1Click(Sender: TObject);var  x, y : Integer;  resultado : double;begintry  x := 10;  y := 0;  resultado := x / y; // o programa pula essa linha (n�o sei porque)  resultado := Calc_Double_If(x / y);  showmessage(try - resultado =  + FloatToStr(x / y));except  showmessage(except);end;end;function TForm1.Calc_Double_If(Numero: Double): Double;begin Calc_Double_If:= Numero;end;end.Espero que nossos amigos do DevMedia possam explicar o ocorrido....

Raylan Zibel · Answer

Se n�o conseguir posicionar o marcador do debug na linha que ele est� pulando, creio que seja pq o debug j� entendeu que aquela linha n�o faz o menor sentido ser processada. Inevitavelmente vai dar erro, j� que voce est� informando que � pra dividir 10 pro 0....

Marcos Saffran · Answer

Acontece que se eu colocar o valor de y := 5, tamb�m pula a linha e n�o d� erro na linharesultado := x / y; // o programa pula essa linha (n�o sei porque)o erro ocorre na linha abaixo....

Pa Informatica · Answer

Vou fazer o teste e aviso. O estranho � que no delphi 7 ele apresenta o erro de divis�o por zero....

Claudio Ferreira · Answer

O valor � realmente 0 (zero) o proprio hint mostra.[/quote]N�o � zero, o Hint arredonda para mostrar. Mas o real conte�do voce n�o v�....

Pa Informatica · Answer

E por que o valor fica como -INF ???De onde saiu isso ?...

Claudio Ferreira · Answer

N�o sei o motivo do -INF, mas tenho impress�o que � um n�mero muito pequeno fracionado que a IDE n�o conseguiu mostrar. (chute)

s� sei que se voce transformar para Integer vai soltar a exce��o de divis�o por zero, coloque o Trunc para converter para inteiro, assim :

/ Trunc (wsQtdIni - wsQtdSai);

Pa Informatica · Answer

Ola pessoal, tive uma luz do que esta ocorrendo, um colega me passou o seguinte link.

http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/compdirsfinitefloat_xml.html

Agora j� sei o que esta ocorrendo mas n�o sei como corrigir.

Tentei colocar a diretiva {$FINITEFLOAT ON} em diversos lugares mais nada funciona.

Se algu�m tiver uma luz agrade�o

F�rum N�o apresenta erro de divis�o por zero. #500400